Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1463 1554 (N42W23 L=193)   538    103        1 (1437/1510-1497/1603) -56.3 W20-W26 N38-N45
      2  414 1506 (N18E54 L=116)   671     83        0 ( 388/1461- 457/1541) -21.8 E58-E48 N15-N20
      3  604 1455 (N18E36 L=134)   330     73        2 ( 579/1419- 638/1476)  76.0 E38-E34 N15-N19
      4  365 1431 (N12E55 L=115)   684    135        1 ( 322/1376- 405/1469) -26.6 E59-E49 N09-N14
      5 1770 1312 (N31W53 L=222)  1089    114        3 (1727/1264-1803/1365) -56.3 W47-W56 N27-N34
      6  503 1328 (N08E39 L=130)   316     73        1 ( 483/1291- 531/1356)  56.3 E41-E37 N06-N10
      7  176 1116 (S10E66 L=104)  1137    132        3 ( 135/1067- 223/1172)  45.0 E73-E60 S12-S05
      8  276 1071 (S11E53 L=117)   845    186        3 ( 226/1004- 341/1128) -22.6 E59-E46 S13-S07
      9  326  888 (S21E47 L=123)   312     50        1 ( 304/ 866- 345/ 920) -63.4 E48-E44 S22-S18
     10  234  845 (S25E57 L=113)   425     84        1 ( 202/ 821- 263/ 881) -14.0 E61-E53 S26-S23
     11  835  684 (S25E06 L=164)  2016    542        3 ( 610/ 587-1045/ 821)  42.6 E21-W05 S35-S12
     12 1333  637 (S18W27 L=197)   218     62        1 (1298/ 623-1359/ 650)  26.6 W24-W29 S19-S17
     13 1220  182 (S55W52 L=221)   517     48        0 (1203/ 161-1241/ 210) -17.1 W45-W58 S56-S51
     14 1014  188 (S61W29 L=199)   472     39        0 ( 989/ 172-1047/ 204)  45.0 W25-W32 S62-S58
  

    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