Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1135 1637 (N33E07 L= 55)   423    119        1 (1095/1606-1194/1672) -12.5 E11-E02 N31-N34
      2  714 1599 (N21E33 L= 29)   270     75        3 ( 695/1563- 734/1625)  90.0 E34-E31 N18-N23
      3 1624 1501 (N37W32 L= 94)  1072    130        2 (1596/1437-1650/1565) -77.5 W29-W34 N32-N41
      4 1343 1522 (N30W09 L= 72)   719    146        2 (1286/1466-1409/1561) -11.3 W04-W14 N28-N32
      5 1316 1308 (N16W11 L= 74)   196     41        2 (1294/1287-1341/1327)  18.4 W09-W12 N14-N16
      6  456 1296 (S01E41 L= 21)   359     65        0 ( 432/1263- 486/1323)  56.3 E42-E39 S03-N00
      7 1661 1071 (N10W38 L=101)  1568    488        5 (1614/ 862-1695/1309) -65.4 W31-W43 S01-N23
      8  408 1229 (S06E43 L= 19)   332     72        0 ( 386/1201- 435/1259) -36.9 E45-E40 S07-S04
      9 1844 1120 (N19W55 L=117)  2151    267        6 (1782/1021-1898/1210) -42.0 W47-W62 N12-N22
     10 1820 1031 (N13W53 L=116)  1506    236        7 (1764/ 943-1879/1121) -25.0 W46-W62 N08-N16
     11  256  950 (S24E53 L=  9)   466     80        0 ( 240/ 909- 271/ 986) -90.0 E55-E51 S26-S22
     12  374  658 (S42E43 L= 19)   335     90        0 ( 344/ 623- 418/ 686)  26.6 E47-E37 S44-S39
     13 1708  637 (S12W56 L=119)   737    116        1 (1676/ 593-1731/ 675) -45.0 W53-W59 S14-S09
     14 1176  628 (S26W19 L= 81)   268     97        0 (1136/ 599-1223/ 657)  -8.1 W15-W22 S27-S25
     15 1397  549 (S25W36 L= 99)   927    168        2 (1335/ 493-1463/ 602) -13.0 W30-W43 S27-S23
     16 1743  573 (S14W64 L=126)   478     68        1 (1714/ 551-1778/ 590)  26.6 W60-W67 S15-S12
     17 1330  411 (S35W39 L=102)   719    180        2 (1262/ 381-1420/ 448)   8.1 W32-W46 S37-S32
     18 1252  337 (S42W39 L=102)   382     66        1 (1236/ 299-1266/ 374) -35.5 W35-W43 S44-S39
     19 1538  312 (S34W67 L=129)   752     93        1 (1496/ 290-1586/ 333)  45.0 W62-W71 S36-S31
     20 1353  242 (S45W58 L=121)   719     60        2 (1329/ 211-1374/ 281) -17.1 W52-W65 S46-S42
  

    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