Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  875 1759 (N45E30 L=209)   509     24        0 ( 855/1730- 894/1786) -45.0 E33-E27 N42-N47
      2  282 1520 (N17E70 L=169)  1437     97        1 ( 249/1483- 325/1554)  -5.4 E83-E62 N15-N19
      3 1757 1485 (N42W57 L=296)   621     89        1 (1718/1454-1802/1505)  -4.4 W51-W64 N40-N43
      4 1282 1316 (N21W11 L=250)   204     83        0 (1249/1282-1310/1346) -31.0 W08-W13 N19-N22
      5 1110 1236 (N13W02 L=241)   834    260        2 (1018/1188-1192/1275)  29.1 E04-W06 N09-N16
      6  838 1174 (N05E13 L=226)   372    134        0 ( 826/1110- 853/1244) -69.4 E15-E11 N01-N09
      7  633 1216 (N04E27 L=212)   286    143        0 ( 576/1189- 696/1242)   0.0 E31-E22 N03-N05
      8 1054 1153 (N07E00 L=239)   469    156        0 (1008/1112-1114/1215) -29.7 E04-W03 N05-N10
      9  250 1048 (S11E55 L=185)   534    154        1 ( 238/ 980- 264/1131)  90.0 E55-E53 S15-S06
     10 1349 1067 (N07W19 L=258)   277    136        0 (1302/1029-1400/1086)  -8.1 W15-W22 N05-N08
     11  732  989 (S07E17 L=222)   235     72        0 ( 708/ 949- 751/1016) -45.0 E18-E15 S09-S05
     12 1088  827 (S11W07 L=246)   974    364        0 (1021/ 691-1175/ 978)  81.5 W04-W09 S20-N00
     13  192  893 (S22E61 L=178)  1245    169        0 ( 127/ 841- 256/ 940)  20.9 E74-E53 S26-S17
     14 1518  649 (S15W39 L=278)   370     93        1 (1472/ 618-1551/ 677) -14.0 W34-W42 S16-S13
     15  525  369 (S55E34 L=205)  1949    246        2 ( 446/ 306- 617/ 452) -29.4 E42-E24 S59-S48
  

    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