Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1205 1701 (N39E10 L=101)  1347    245        3 (1133/1609-1310/1775)  84.0 E13-E03 N29-N48
      2 1642 1453 (N37W29 L=140)   386     47        0 (1625/1419-1657/1481) -63.4 W27-W30 N34-N39
      3 1819 1162 (N25W49 L=160)  1297    271        2 (1775/1051-1868/1270) -42.3 W43-W56 N19-N30
      4 1194 1227 (N08W04 L=115)   426    100        2 (1154/1196-1253/1250)  56.3 W01-W06 N05-N11
      5  135 1133 (S20E70 L= 41)   930     89        2 (  90/1105- 158/1158)   4.4 E80-E66 S21-S18
      6  756 1037 (S13E15 L= 96)   211     37        0 ( 735/1013- 776/1062) -18.4 E16-E13 S14-S11
      7 1819  958 (N13W53 L=164)   811    114        2 (1793/ 896-1846/1014) -35.5 W49-W57 N10-N15
      8  676  955 (S19E18 L= 93)   300    129        0 ( 616/ 940- 739/ 968)  14.0 E22-E14 S21-S18
      9 1876  853 (N10W63 L=174)  1106    125        3 (1827/ 817-1920/ 888)  17.1 W57-W70 N07-N12
     10 1101  802 (S17W10 L=121)   278     68        3 (1077/ 777-1127/ 836)  90.0 W09-W12 S18-S15
     11 1505  580 (S17W43 L=154)   259     70        1 (1471/ 563-1541/ 597)  53.1 W40-W45 S18-S14
     12 1637  480 (S17W59 L=170)  1017    114        2 (1586/ 445-1687/ 524)  15.3 W55-W67 S19-S14
     13 1501  305 (S31W64 L=175)   883    102        1 (1451/ 264-1534/ 338) -80.5 W59-W67 S34-S28
  

    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