Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  873 1816 (N39E38 L=172)   806    106        0 ( 844/1757- 894/1872) -29.7 E46-E32 N33-N43
      2 1596 1530 (N40W26 L=236)   385    100        0 (1581/1479-1612/1583)  82.9 W24-W27 N36-N44
      3 1088 1429 (N17E07 L=204)   228     89        0 (1059/1394-1130/1450)  59.0 E07-E04 N14-N19
      4  315 1401 (S01E57 L=153)   458    101        1 ( 282/1349- 340/1432) -16.7 E62-E52 S03-N01
      5 1128 1334 (N13E02 L=208)   267    131        2 (1063/1308-1179/1351)   0.0 E05-W01 N11-N13
      6  170 1160 (S16E66 L=144)   503     47        1 ( 151/1134- 198/1187)  63.4 E69-E62 S18-S14
      7  196 1053 (S23E61 L=149)   776    168        2 ( 170/ 991- 229/1124)  69.4 E64-E56 S26-S18
      8  318 1016 (S23E47 L=163)  1007    253        2 ( 244/ 918- 370/1081) -30.3 E54-E41 S28-S19
      9  296  978 (S26E49 L=161)   361     96        0 ( 276/ 933- 318/1026)  63.4 E50-E47 S28-S22
     10 1280  828 (S11W20 L=230)   725    237        1 (1181/ 775-1382/ 866)  48.0 W15-W24 S16-S06
     11  909  683 (S29W02 L=212)  1086    459        0 ( 696/ 658-1097/ 727)  33.1 E11-W12 S36-S21
     12 1754  565 (S11W66 L=276)   462     47        0 (1724/ 552-1787/ 578)  14.0 W62-W70 S11-S09
     13 1283  529 (S28W31 L=241)  1341    358        4 (1118/ 477-1454/ 560)  10.9 W19-W45 S31-S24
     14  953  478 (S41W12 L=223)   919    157        2 ( 879/ 449-1031/ 510)  37.9 W07-W16 S43-S36
     15  449  401 (S63E40 L=170)  1108    116        3 ( 393/ 365- 495/ 441) -11.3 E50-E32 S66-S60
  

    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