Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1141 1852 (N52E28 L= 92)   935     62        2 (1116/1812-1169/1892) -32.5 E34-E23 N47-N56
      2 1210 1791 (N49E17 L=103)   455     68        1 (1194/1754-1235/1826) -60.3 E19-E14 N45-N52
      3  791 1759 (N31E42 L= 78)   519     86        1 ( 756/1727- 831/1797) -16.7 E47-E37 N29-N33
      4 1501 1569 (N42W15 L=135)   312     60        0 (1483/1546-1527/1596) -21.8 W12-W17 N40-N44
      5  340 1377 (S03E55 L= 65)   503     87        2 ( 315/1345- 361/1418)  90.0 E56-E52 S05-N00
      6 1295 1300 (N17W07 L=127)   358    125        1 (1236/1270-1353/1318)  20.6 W03-W11 N15-N18
      7  125 1114 (S22E75 L= 45)  1031     87        1 ( 110/1065- 142/1158)  63.4 E78-E71 S25-S19
      8 1615  788 (S01W42 L=162)  1831    362        5 (1528/ 637-1662/ 955) -33.7 W31-W50 S07-N05
      9  214  858 (S36E59 L= 61)  1304    155        3 ( 170/ 802- 264/ 930)  31.0 E67-E51 S40-S31
     10  753  784 (S27E09 L=111)   314    134        2 ( 694/ 757- 801/ 822)  50.2 E12-E06 S29-S23
     11  555  639 (S42E20 L=100)   306     52        1 ( 526/ 614- 582/ 664) -11.3 E22-E17 S42-S40
     12 1193  512 (S29W28 L=147)   245    100        0 (1153/ 495-1244/ 530)  51.3 W25-W29 S31-S26
     13 1361  271 (S37W58 L=178)  1439    146        3 (1283/ 241-1421/ 312)  58.0 W53-W62 S40-S32
     14  846  219 (S63W29 L=149)   385     61        0 ( 832/ 190- 865/ 254) -26.6 W23-W35 S65-S59
     15  967  151 (S62W52 L=172)   504     53        0 ( 941/ 128- 994/ 174) -26.6 W47-W60 S65-S59
  

    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