Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  767 1380 (N33E06 L= 96)   349     54        1 ( 736/1353- 802/1401)   0.0 E07-E02 N31-N34
      2  860 1192 (N20E05 L= 96)   268     83        1 ( 833/1145- 887/1230)  45.0 E06-E02 N17-N21
      3 1517 1099 (S03W30 L=131)   894    219        0 (1485/1008-1557/1221)  76.0 W28-W34 S09-N03
      4 1844 1187 (S10W59 L=161)   613    135        1 (1820/1158-1878/1216)   0.0 W56-W64 S11-S08
      5 1850 1036 (S18W55 L=156)   625    125        3 (1814/1004-1880/1080)  14.0 W50-W58 S19-S16
      6  707 1006 (N13E18 L= 83)   239    124        0 ( 649/ 986- 769/1028) -14.0 E22-E14 N12-N14
      7 1743  847 (S25W41 L=142)   605    137        0 (1709/ 794-1781/ 919)  32.0 W37-W45 S27-S22
      8  698  796 (N02E25 L= 77)   203     56        1 ( 680/ 777- 729/ 824) -56.3 E25-E22 N00-N03
      9 1738  707 (S34W39 L=140)   420     68        1 (1722/ 674-1755/ 743) -90.0 W37-W40 S36-S31
     10 1199  582 (S24E02 L= 99)   757    215        0 (1159/ 495-1228/ 697)  57.5 E07-W02 S28-S17
     11  994  595 (S17E14 L= 88)   248    156        0 ( 983/ 524-1010/ 661)  63.4 E15-E11 S21-S13
     12  323  609 (S01E59 L= 42)   577    117        1 ( 308/ 567- 342/ 656)  33.7 E61-E55 S03-N01
     13  773  501 (S17E30 L= 71)   270    100        2 ( 742/ 472- 817/ 523)   9.5 E32-E26 S18-S15
     14  460  488 (S11E52 L= 49)   400    169        1 ( 417/ 464- 509/ 514)   0.0 E56-E47 S11-S09
     15  954  396 (S29E24 L= 78)  1163    305        1 ( 856/ 341-1030/ 503)   7.6 E29-E14 S32-S23
  

    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