Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1616 (N46E64 L= 52)   590     72        0 ( 370/1586- 405/1642) -63.4 E69-E58 N43-N47
      2  873 1543 (N39E08 L=108)   503    150        1 ( 796/1522- 937/1561)  -5.2 E14-E03 N37-N40
      3 1050 1442 (N31W04 L=120)   472    119        0 (1011/1398-1089/1487) -56.3 W02-W06 N27-N34
      4  502 1338 (N26E36 L= 80)   914    243        2 ( 457/1259- 552/1419) -51.3 E40-E30 N21-N31
      5  365 1302 (N24E48 L= 68)   715    129        1 ( 350/1236- 389/1361) -63.4 E50-E45 N19-N27
      6  274 1260 (N21E56 L= 59)   509    101        2 ( 257/1227- 298/1310)  90.0 E58-E53 N19-N24
      7 1733 1278 (N15W53 L=169)   345     85        3 (1712/1256-1756/1310)  36.9 W51-W56 N13-N16
      8 1710 1208 (N10W49 L=165)   692    114        2 (1680/1153-1752/1253) -50.2 W47-W52 N06-N13
      9 1718  807 (S14W48 L=163)  3557    512       13 (1626/ 613-1804/ 996) -85.2 W40-W56 S26-S02
     10  260  869 (S03E56 L= 60)   448     50        1 ( 231/ 843- 282/ 892) -21.8 E58-E53 S04-S01
     11 1603  855 (S10W37 L=153)   315    136        0 (1560/ 821-1657/ 890)  23.2 W34-W41 S11-S08
     12 1610  777 (S15W38 L=154)   434    111        0 (1562/ 731-1657/ 805)  -7.1 W34-W42 S17-S12
     13 1712  678 (S23W49 L=165)   358     42        1 (1692/ 644-1729/ 700)  90.0 W47-W50 S25-S21
     14  710  485 (S29E26 L= 90)  1968    372        5 ( 561/ 400- 813/ 600)  26.6 E40-E16 S35-S20
  

    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