Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  500 1587 (N14E51 L= 98)  1434    256        0 ( 472/1488- 547/1679) -53.1 E55-E45 N08-N20
      2  368 1337 (S03E51 L= 98)   547     53        1 ( 345/1300- 392/1371)  90.0 E52-E48 S05-S01
      3  941 1287 (N07E12 L=137)   343     64        0 ( 905/1253- 980/1313)  68.2 E13-E09 N04-N09
      4 1317 1213 (N13W11 L=160)   349    142        0 (1252/1151-1358/1279) -21.8 W05-W15 N10-N15
      5 1131 1109 (N02W04 L=152)   209     72        1 (1089/1091-1167/1134)   0.0 W00-W06 N01-N03
      6 1872 1093 (N25W56 L=205)   425     80        0 (1845/1067-1889/1110) -11.3 W53-W58 N23-N26
      7  323 1016 (S23E45 L=103)   697    213        1 ( 258/ 959- 392/1075)  45.0 E50-E40 S27-S17
      8  159 1009 (S26E62 L= 87)   551    125        2 ( 137/ 969- 181/1048)  78.7 E63-E59 S29-S24
      9  823  771 (S24E05 L=144)  1357    386        1 ( 664/ 732-1027/ 835)  33.0 E15-W05 S29-S15
     10 1297  676 (S16W26 L=175)   585    238        0 (1185/ 636-1412/ 722)  45.0 W20-W31 S21-S10
     11 1361  593 (S19W33 L=182)   551    224        0 (1262/ 574-1470/ 610)  30.3 W26-W39 S21-S14
     12 1658  477 (S16W61 L=210)  3131    423        8 (1515/ 400-1750/ 568)  53.1 W53-W72 S24-S08
     13 1324  470 (S27W37 L=186)   398    139        1 (1275/ 423-1367/ 493)  -6.3 W33-W42 S28-S25
     14 1027  367 (S43W24 L=173)   461    104        1 ( 996/ 342-1074/ 402)   9.5 W21-W27 S45-S41
     15 1221  259 (S43W45 L=194)   468     51        0 (1189/ 243-1253/ 274)  26.6 W42-W47 S44-S41
  

    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