Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1864 (N45E47 L=256)   631     61        1 ( 837/1845- 899/1882)   9.5 E50-E42 N42-N46
      2  759 1734 (N31E41 L=262)  1319    172        2 ( 700/1681- 831/1779) -14.9 E48-E33 N28-N33
      3  429 1585 (N14E57 L=246)  2506    204        6 ( 373/1497- 489/1668) -47.7 E65-E50 N08-N19
      4  795 1556 (N21E29 L=274)   583    134        0 ( 779/1488- 813/1619) -58.0 E31-E26 N16-N24
      5  310 1532 (N09E67 L=236)   728    107        0 ( 285/1488- 339/1584) -74.1 E69-E63 N05-N12
      6  646 1455 (N11E34 L=269)   338    135        0 ( 592/1408- 671/1491) -20.6 E38-E30 N08-N12
      7 1631 1266 (N26W32 L=335)  1837    456        0 (1561/1131-1715/1427) -45.0 W24-W40 N19-N34
      8 1795 1230 (N29W48 L=351)   923    109        2 (1752/1174-1825/1269) -26.6 W43-W52 N26-N31
      9  346 1219 (S09E48 L=255)   391     94        0 ( 325/1170- 378/1263)  80.5 E49-E46 S12-S06
     10 1318 1092 (N07W15 L=318)   990    304        0 (1244/ 993-1356/1232) -81.9 W10-W16 N00-N14
     11  482 1116 (S12E35 L=268)   283     76        1 ( 463/1079- 517/1139)  68.2 E36-E32 S14-S09
     12  205 1081 (S20E60 L=243)   584    103        0 ( 189/1039- 235/1131) -51.3 E61-E55 S22-S16
     13 1855  942 (N14W59 L=  2)  2496    242        5 (1807/ 830-1905/1052) -45.0 W51-W66 N08-N19
     14 1782  977 (N14W50 L=353)   471    101        0 (1757/ 933-1802/1002) -36.9 W47-W52 N11-N15
     15 1758  771 (N02W55 L=358)   999    140        2 (1702/ 739-1822/ 814)   8.7 W48-W61 N00-N04
     16  743  697 (S30E08 L=295)   345    131        1 ( 685/ 654- 793/ 720)  49.4 E11-E05 S34-S27
     17  306  598 (S49E50 L=253)  2252    226        1 ( 220/ 533- 403/ 672)  -9.1 E62-E37 S52-S45
     18 1532  615 (S13W43 L=346)   886    243        1 (1422/ 589-1640/ 659)  34.7 W35-W50 S16-S07
     19 1712  566 (S10W61 L=  4)   466     76        1 (1684/ 542-1758/ 593)  38.7 W58-W64 S11-S07
     20 1233  266 (S43W46 L=349)  1653    197        3 (1164/ 225-1326/ 328)   0.0 W36-W55 S45-S39
  

    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