Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1214 1700 (N48W27 L= 48)   522     69        0 (1184/1662-1237/1731)  80.5 W24-W29 N44-N50
      2 1622 1525 (N29W54 L= 75)   338     99        0 (1598/1498-1651/1544) -45.0 W51-W56 N27-N30
      3 1600 1444 (N24W48 L= 69)   579    120        0 (1549/1408-1642/1479) -45.0 W44-W50 N21-N27
      4  271 1412 (N34E63 L=318)  1114    103        2 ( 238/1379- 317/1447) -10.6 E71-E55 N31-N36
      5  886 1383 (N29E06 L= 15)   275    139        0 ( 830/1351- 950/1418) -32.0 E09-E01 N26-N31
      6 1466 1349 (N20W33 L= 54)   241    106        1 (1433/1309-1509/1375)  18.4 W30-W36 N18-N21
      7 1392 1034 (N02W23 L= 44)   315    109        0 (1355/ 993-1428/1081)  38.7 W20-W25 N00-N04
      8 1120 1049 (N06W06 L= 27)   466    157        2 (1050/1010-1195/1080)   6.3 W01-W10 N04-N07
      9 1874  952 (S10W64 L= 85)  2789    219        5 (1840/ 845-1911/1033)  70.0 W59-W70 S16-S04
     10 1928  948 (S11W74 L= 96)   864     78        1 (1909/ 911-1942/ 988) -78.7 W70-W79 S13-S08
     11 1655  931 (S07W41 L= 62)   258     99        0 (1629/ 892-1682/ 973) -51.3 W39-W43 S09-S04
     12  345  825 (S03E48 L=333)   359     83        0 ( 326/ 790- 363/ 860) -63.4 E49-E47 S04-N00
     13  254  727 (S09E61 L=321)  1144    193        2 ( 212/ 646- 282/ 802)  84.3 E63-E57 S14-S04
     14 1535  744 (S17W31 L= 52)   349     87        0 (1514/ 702-1560/ 781)  68.2 W29-W33 S20-S15
     15  794  677 (S14E18 L=  3)   285    163        0 ( 755/ 652- 848/ 729) -63.4 E20-E14 S16-S10
     16  900  614 (S19E12 L=  9)   456    177        0 ( 837/ 573- 933/ 683)  40.6 E16-E09 S21-S14
     17  633  535 (S23E32 L=349)   678    144        3 ( 616/ 468- 652/ 610)  59.0 E35-E29 S27-S17
     18 1052  501 (S29E03 L= 18)  1389    391        2 ( 916/ 399-1212/ 593)  24.4 E14-W08 S35-S23
     19 1666  517 (S36W48 L= 69)  1609    252        2 (1559/ 464-1768/ 562)   4.8 W37-W62 S38-S33
     20 1078  395 (S37E03 L= 18)   366     91        1 (1028/ 382-1122/ 406)   0.0 E06-W00 S38-S35
     21  797  277 (S44E30 L=351)  1755    245        2 ( 748/ 183- 862/ 343)  45.0 E37-E20 S55-S38
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y