Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1592 (N38W05 L=279)   488    122        0 (1329/1558-1434/1615)   0.0 W00-W09 N36-N39
      2  298 1561 (N07E70 L=204)   641     46        0 ( 277/1534- 317/1592) -76.0 E72-E67 N05-N09
      3  479 1468 (N05E46 L=228)   355     57        1 ( 456/1432- 498/1494) -63.4 E48-E44 N02-N06
      4  950 1354 (N10E13 L=261)   476    117        2 ( 924/1301- 986/1405) -39.8 E15-E09 N07-N12
      5  265 1190 (S15E55 L=219)  2052    528        2 ( 165/ 994- 423/1372)  59.3 E64-E46 S28-S01
      6 1877  942 (N16W61 L=334)   433     54        2 (1855/ 916-1907/ 970)  71.6 W57-W64 N14-N17
      7 1481  895 (S00W29 L=303)   254     87        0 (1444/ 877-1507/ 928)  63.4 W27-W30 S02-N02
      8 1036  865 (S15W05 L=279)   309     80        1 ( 998/ 840-1065/ 899)  45.0 W03-W06 S16-S12
      9 1370  724 (S12W28 L=302)   472    170        0 (1319/ 654-1400/ 795) -33.7 W23-W32 S15-S09
     10 1281  637 (S20W27 L=300)   382    134        0 (1223/ 620-1349/ 664)  20.6 W22-W30 S20-S17
     11  357  628 (S48E41 L=233)   561     94        1 ( 307/ 610- 406/ 648)  15.9 E48-E34 S50-S45
     12 1178  573 (S26W23 L=297)   413    146        1 (1112/ 540-1244/ 593)  18.4 W19-W28 S28-S25
     13 1645  452 (S17W63 L=336)  1102    134        2 (1583/ 425-1707/ 484)  28.6 W57-W69 S20-S14
     14  887  392 (S47W14 L=288)   888    220        3 ( 801/ 355- 969/ 441)   3.4 W05-W22 S48-S44
     15 1090  307 (S45W34 L=308)   408     76        0 (1051/ 283-1128/ 329)   7.1 W29-W38 S46-S44
  

    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