Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  860 1704 (N50W12 L=279)   399     82        0 ( 833/1678- 906/1722)  -8.1 W08-W15 N48-N52
      2 1152 1418 (N23W18 L=286)   507    117        0 (1117/1372-1206/1458)  23.2 W15-W22 N20-N24
      3  941 1377 (N26W04 L=272)   911    290        4 ( 779/1347-1056/1404) -23.6 E05-W11 N23-N30
      4  241 1333 (N41E56 L=212)   867    116        1 ( 175/1309- 292/1353) -11.3 E68-E48 N39-N43
      5 1734  899 (S22W42 L=310)   802    154        0 (1701/ 828-1755/ 977)  63.4 W38-W44 S25-S17
      6 1505  891 (S15W25 L=292)   315    112        1 (1473/ 859-1549/ 939) -66.8 W23-W27 S18-S11
      7  933  832 (S04E10 L=258)   184     38        0 ( 912/ 815- 953/ 851) -63.4 E10-E08 S05-S02
      8  333  782 (N06E50 L=217)   682     95        2 ( 293/ 742- 383/ 815)   6.3 E54-E45 N04-N08
      9 1025  678 (S15E09 L=259)   224     78        1 ( 989/ 656-1070/ 697) -11.3 E10-E05 S15-S14
     10  341  661 (S01E54 L=214)   625     67        1 ( 318/ 625- 369/ 690)  56.3 E56-E50 S02-N01
     11  996  535 (S23E15 L=253)  1062    344        0 ( 868/ 486-1090/ 635)   0.0 E21-E06 S25-S18
     12 1312  477 (S36W03 L=271)   491    107        4 (1274/ 438-1345/ 520)  33.7 W00-W06 S38-S33
     13  739  389 (S26E37 L=231)   444    118        0 ( 726/ 329- 754/ 446)  48.8 E40-E33 S29-S21
     14 1231  383 (S40E06 L=262)   290     47        1 (1209/ 358-1251/ 411)  63.4 E07-E03 S41-S37
  

    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