Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  238 1247 (N38E53 L=336)   484    147        0 ( 200/1229- 276/1270) -26.6 E57-E48 N35-N39
      2 1247 1213 (N12W18 L= 46)   565    168        0 (1153/1164-1319/1244) -45.0 W12-W20 N07-N15
      3 1898 1171 (S11W67 L= 96)   571     82        0 (1882/1140-1914/1214)  53.1 W64-W70 S12-S08
      4 1832 1104 (S12W56 L= 85)   461     99        1 (1810/1060-1847/1157)  80.5 W53-W58 S14-S08
      5 1259 1060 (N03W14 L= 43)   482    164        1 (1206/ 990-1302/1146)  33.7 W09-W18 N00-N06
      6  748 1100 (N18E14 L= 14)   267     46        1 ( 727/1073- 777/1127) -76.0 E15-E12 N15-N19
      7 1867 1018 (S18W57 L= 86)   553    131        1 (1838/ 976-1888/1045)  15.9 W53-W60 S20-S16
      8  417  946 (N16E40 L=349)   281     89        1 ( 400/ 919- 442/ 986)  76.0 E41-E38 N14-N18
      9  204  873 (N15E61 L=327)   506    105        1 ( 172/ 829- 235/ 908) -51.3 E64-E59 N12-N17
     10 1862  833 (S29W54 L= 83)  1138    144        2 (1822/ 782-1887/ 902)  35.5 W49-W57 S31-S25
     11  433  831 (N09E41 L=347)   436    120        2 ( 382/ 800- 469/ 859)   7.1 E46-E38 N06-N10
     12  995  676 (S12E10 L= 18)   471    132        1 ( 964/ 617-1021/ 742)  45.0 E13-E07 S15-S08
     13 1570  549 (S37W24 L= 53)   735    123        2 (1513/ 511-1617/ 595)  11.3 W18-W28 S39-S35
     14  411  469 (S12E58 L=331)   790     84        2 ( 372/ 443- 450/ 498) -38.7 E61-E54 S14-S10
     15  487  347 (S22E58 L=330)   572    126        0 ( 450/ 333- 525/ 363)   0.0 E62-E54 S23-S20
  

    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