Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1138 1639 (N37W29 L=160)   266     65        1 (1105/1621-1170/1659) -26.6 W26-W30 N35-N38
      2 1462 1591 (N24W47 L=179)   529    112        2 (1405/1562-1518/1614) -56.3 W44-W50 N20-N26
      3 1310 1454 (N21W30 L=161)  1379    522        3 (1095/1399-1530/1526) -38.0 W20-W43 N13-N31
      4 1779 1319 (S00W59 L=190)   558     78        1 (1741/1294-1810/1347) -45.0 W55-W61 S02-N02
      5 1074 1218 (N15W08 L=139)   374    164        0 (1003/1195-1156/1233) -18.4 W03-W12 N12-N16
      6  759 1171 (N21E12 L=120)   334     90        1 ( 706/1151- 804/1186) -31.0 E14-E08 N18-N22
      7 1881 1024 (S20W61 L=192)  1184    177        3 (1857/ 943-1904/1112)  63.4 W56-W64 S24-S14
      8  283 1082 (N27E50 L= 82)   421     75        2 ( 250/1060- 325/1102) -20.6 E53-E45 N25-N28
      9  183 1054 (N27E62 L= 69)   585     75        1 ( 159/1020- 215/1092) -45.0 E65-E57 N24-N29
     10  487  989 (N17E33 L= 98)   238     97        0 ( 442/ 978- 539/ 998) -15.9 E36-E29 N15-N17
     11 1260  617 (S24W03 L=134)   898    233        1 (1232/ 522-1277/ 740)  61.7 E01-W06 S29-S16
     12  480  497 (S11E51 L= 81)   381     65        1 ( 460/ 469- 508/ 533) -90.0 E52-E48 S13-S08
     13 1215  457 (S33E05 L=126)   333     30        0 (1190/ 438-1244/ 475) -26.6 E06-E02 S34-S31
  

    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