Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1859 (N48E36 L=  0)   512     55        0 ( 967/1842-1022/1879)  76.0 E39-E33 N44-N49
      2 1031 1766 (N41E26 L= 11)  1415    300        4 ( 989/1691-1069/1837) -52.4 E32-E20 N34-N47
      3 1090 1634 (N33E15 L= 21)   893    151        3 (1056/1578-1147/1698) -21.8 E19-E09 N29-N37
      4  497 1589 (N14E51 L=345)  1320    400        2 ( 448/1444- 551/1693) -37.9 E59-E40 N06-N20
      5  416 1597 (N13E59 L=337)   443    103        0 ( 398/1563- 437/1635) -68.2 E60-E57 N10-N15
      6  336 1527 (N07E63 L=333)  2183    276        7 ( 273/1467- 372/1612) -78.7 E68-E58 N02-N12
      7 1712 1461 (N43W37 L= 74)   405     73        0 (1682/1444-1744/1479)  15.9 W33-W40 N41-N44
      8 1527 1310 (N26W22 L= 59)   356    104        1 (1508/1258-1544/1359) -74.1 W20-W24 N21-N28
      9  988 1247 (N06E08 L= 29)   263     49        0 ( 969/1216-1011/1278)  90.0 E08-E07 N04-N08
     10  347 1224 (S10E48 L=348)   374     67        1 ( 322/1192- 369/1261)  68.2 E49-E47 S12-S07
     11 1259 1054 (N03W12 L= 49)   390    156        1 (1193/1033-1306/1082)  45.0 W08-W15 N00-N05
     12 1340 1036 (N04W17 L= 54)   213     17        0 (1321/1015-1357/1058)  71.6 W16-W18 N02-N05
     13 1784  912 (N11W52 L= 89)  3644    729        5 (1671/ 736-1862/1034) -28.8 W39-W65 N01-N18
     14 1696  875 (N06W45 L= 82)   354     60        0 (1676/ 842-1720/ 906) -58.4 W43-W46 N03-N08
     15  495  817 (S31E28 L=  9)   248     46        1 ( 470/ 793- 516/ 840)  63.4 E29-E26 S32-S28
     16  872  755 (S24E01 L= 35)   619    171        0 ( 788/ 728- 961/ 795)  48.8 E06-W02 S27-S19
     17 1026  600 (S29W13 L= 50)   346     61        1 ( 986/ 579-1062/ 624)  11.3 W10-W15 S30-S27
     18  796  538 (S40W01 L= 37)   492    133        0 ( 726/ 524- 859/ 552)  26.6 E04-W04 S41-S37
     19 1298  230 (S42W53 L= 89)   578     67        0 (1259/ 214-1330/ 242)  45.0 W49-W55 S43-S40
  

    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