Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1604 (N31E06 L=278)   472    148        0 (1097/1551-1185/1668)  78.7 E07-E04 N26-N36
      2 1284 1572 (N32W04 L=288)   799    214        0 (1222/1477-1334/1657) -45.0 E01-W09 N26-N37
      3  366 1583 (N15E61 L=222)  2525    171        4 ( 302/1515- 409/1644) -71.6 E69-E56 N10-N19
      4  686 1527 (N16E32 L=252)  1004    179        1 ( 641/1477- 755/1603) -26.6 E38-E26 N13-N20
      5 1363 1222 (N12W16 L=300)   774    197        0 (1328/1136-1401/1318)  90.0 W13-W17 N06-N18
      6 1514 1173 (N12W26 L=310)   445    146        1 (1490/1100-1538/1234) -60.3 W24-W28 N08-N15
      7 1696 1051 (N10W42 L=325)   901    168        0 (1639/ 986-1733/1121)  73.3 W38-W44 N04-N14
      8 1426 1004 (N01W24 L=308)   308     81        1 (1389/ 983-1467/1024)   0.0 W21-W26 N00-N01
      9 1867  977 (N11W60 L=344)   650     82        1 (1839/ 935-1886/1019) -59.0 W56-W62 N08-N13
     10 1218  850 (S13W15 L=299)   199    107        0 (1180/ 825-1273/ 867)  45.0 W13-W17 S14-S10
     11 1390  659 (S19W31 L=315)   689    157        0 (1328/ 602-1452/ 709)  63.4 W28-W33 S23-S15
     12  880  640 (S32E00 L=283)   270    119        0 ( 813/ 629- 937/ 654)  29.7 E04-W03 S34-S30
     13 1595  586 (S18W49 L=333)   603    172        0 (1519/ 547-1667/ 616)  45.0 W44-W54 S22-S14
     14 1227  534 (S31W26 L=310)   444    108        0 (1169/ 511-1269/ 558)  45.0 W22-W27 S33-S28
     15 1362  353 (S38W46 L=330)   393     68        0 (1331/ 339-1399/ 375)  18.4 W42-W49 S39-S36
  

    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