Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1185 1801 (N46W47 L= 87)   525    101        0 (1167/1769-1217/1847)  40.6 W43-W54 N43-N49
      2  761 1750 (N61W09 L= 49)   319     46        0 ( 739/1726- 779/1770) -90.0 W06-W11 N57-N62
      3  549 1657 (N61E20 L= 20)  1480    272        1 ( 428/1577- 659/1718)   5.2 E37-E04 N57-N64
      4  897 1558 (N41W09 L= 49)   823    229        1 ( 820/1496- 989/1621) -65.2 W05-W13 N34-N47
      5 1315 1530 (N26W34 L= 74)   615    193        1 (1217/1505-1405/1545) -38.7 W28-W39 N21-N29
      6  955 1350 (N26W05 L= 45)   601    160        3 ( 888/1301-1008/1386) -54.5 W01-W08 N22-N30
      7 1158 1274 (N16W14 L= 55)   297    100        2 (1129/1231-1181/1311)  68.2 W13-W16 N13-N18
      8 1017 1283 (N21W07 L= 47)   265    109        0 ( 970/1251-1042/1309) -21.8 W03-W08 N18-N22
      9  826 1175 (N20E07 L= 33)   489    265        0 ( 716/1139- 949/1206) -39.8 E13-E01 N14-N24
     10 1803 1034 (S16W51 L= 91)  1510    257        4 (1772/ 911-1844/1125)  81.3 W47-W57 S23-S10
     11 1891  952 (S25W61 L=101)  1342    185        1 (1834/ 903-1936/1041)  10.0 W52-W70 S27-S21
     12 1733  895 (S22W42 L= 82)   403    149        0 (1692/ 833-1773/ 954)  29.1 W37-W46 S24-S19
     13 1151  506 (S27E07 L= 33)  1392    489        1 ( 970/ 391-1294/ 643)  12.5 E22-W05 S31-S21
     14 1105  287 (S42E20 L= 20)  1576    362        2 ( 979/ 196-1233/ 388)  13.1 E36-E06 S45-S37
  

    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