Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  919 1905 (N73W47 L= 76)   920     85        1 ( 896/1868- 940/1946)   7.7 W34-W87 N68-N75
      2 1264 1513 (N30W29 L= 58)   270     73        0 (1225/1499-1306/1529) -31.0 W26-W31 N28-N31
      3 1744 1506 (N15W69 L= 97)   584     63        1 (1708/1486-1774/1526)  -4.8 W62-W74 N13-N16
      4 1720 1428 (N12W60 L= 89)  1253    153        4 (1645/1374-1778/1467) -38.7 W54-W66 N08-N16
      5 1141 1429 (N28W18 L= 46)   234     67        1 (1120/1392-1156/1465)  78.7 W16-W18 N25-N30
      6  715 1359 (N34E13 L= 16)   249     74        1 ( 682/1328- 744/1385) -59.0 E15-E11 N31-N36
      7 1081 1314 (N23W10 L= 39)   502    204        1 (1026/1229-1122/1385)  35.0 W04-W14 N18-N26
      8 1761 1236 (N01W55 L= 83)   916    147        1 (1716/1176-1799/1293) -74.1 W51-W57 S03-N04
      9  794 1147 (N19E11 L= 17)   262     80        0 ( 762/1122- 827/1170) -59.0 E12-E09 N16-N21
     10  618 1081 (N19E24 L=  5)   210     77        0 ( 585/1056- 647/1103) -53.1 E25-E22 N16-N20
     11  243  948 (N16E58 L=331)   357     97        0 ( 210/ 925- 277/ 968)   7.1 E61-E53 N14-N17
     12 1661  891 (S16W38 L= 66)   545    117        1 (1612/ 858-1708/ 935)  14.0 W33-W41 S17-S14
     13 1545  676 (S26W26 L= 55)   497    104        1 (1523/ 624-1564/ 724)  81.9 W24-W27 S30-S23
     14  892  426 (S27E23 L=  5)   635    154        2 ( 820/ 392- 958/ 462)   0.0 E28-E18 S28-S25
  

    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