Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1395 1667 (N47W31 L=249)   297     42        1 (1366/1648-1418/1682)   9.5 W28-W34 N45-N48
      2 1553 1631 (N44W47 L=265)   876    115        1 (1490/1606-1601/1654)   0.0 W39-W53 N42-N46
      3  862 1554 (N36E15 L=203)   622    155        0 ( 804/1507- 921/1596) -26.6 E19-E09 N33-N39
      4  356 1512 (N30E59 L=159)   415     48        0 ( 325/1496- 384/1525)   9.5 E62-E54 N28-N31
      5  865 1341 (N22E12 L=206)   309     61        1 ( 850/1306- 884/1377) -68.2 E12-E10 N19-N24
      6 1864 1163 (N12W65 L=282)  4836    384        5 (1764/1003-1933/1314) -61.2 W54-W75 N02-N22
      7  779 1212 (N13E16 L=201)   252     28        2 ( 759/1185- 799/1234) -71.6 E17-E14 N11-N14
      8 1270 1079 (N07W15 L=232)  1075    273        3 (1199/ 962-1318/1190) -61.7 W10-W18 N00-N13
      9 1435 1088 (N08W26 L=243)   405    119        1 (1408/1047-1474/1148) -56.3 W24-W28 N05-N11
     10  797  897 (S06E14 L=204)   289     78        0 ( 772/ 858- 815/ 940) -68.2 E15-E12 S08-S03
     11 1498  722 (S15W33 L=250)  2373    492        2 (1393/ 530-1582/ 914)  72.3 W27-W36 S27-S02
     12 1173  787 (S11W10 L=227)   376     77        1 (1144/ 755-1196/ 822) -76.0 W08-W11 S13-S09
     13  484  628 (S25E37 L=180)   935    192        0 ( 420/ 600- 551/ 682) -24.0 E42-E31 S26-S21
     14 1755  573 (S25W62 L=279)   480     82        0 (1725/ 537-1780/ 601)  59.0 W59-W64 S27-S22
     15  998  222 (S56W02 L=219)  2220    322        4 ( 835/ 195-1120/ 249)   3.8 E16-W14 S59-S52
  

    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