Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  927 1871 (N72W04 L=152)   569     50        1 ( 913/1840- 945/1899)  48.4 W00-W09 N67-N76
      2  789 1846 (N71E23 L=125)   490     31        0 ( 771/1821- 810/1868) -80.5 E26-E18 N67-N73
      3 1577 1561 (N33W52 L=200)   451     89        0 (1535/1544-1619/1576)  -6.3 W47-W56 N31-N33
      4 1112 1529 (N37W12 L=160)   368     85        1 (1067/1499-1151/1557)  23.2 W08-W15 N35-N38
      5 1185 1514 (N35W17 L=165)   309     53        3 (1166/1485-1202/1544) -90.0 W15-W18 N32-N37
      6 1546 1474 (N27W45 L=193)   783    177        1 (1509/1390-1579/1543)  79.7 W42-W46 N21-N32
      7 1695 1479 (N25W60 L=208)   706    130        1 (1655/1423-1717/1531)  24.8 W52-W65 N22-N28
      8 1779 1471 (N23W71 L=219)   764     96        1 (1744/1440-1821/1497) -21.8 W66-W77 N20-N24
      9  793 1359 (N28E13 L=135)   501    185        2 ( 765/1278- 839/1433) -74.7 E14-E09 N22-N33
     10  389 1282 (N25E45 L=103)  2624    438        2 ( 276/1156- 559/1340)   4.6 E55-E30 N17-N29
     11 1253 1262 (N18W17 L=165)   383    133        1 (1218/1224-1302/1305) -45.0 W14-W20 N15-N20
     12  384 1069 (N12E44 L=104)   556    110        1 ( 337/1026- 418/1107) -35.5 E47-E40 N09-N14
     13  484 1001 (N08E36 L=112)   298     53        1 ( 462/ 973- 508/1032)  76.0 E37-E33 N05-N09
     14 1747  857 (S13W50 L=198)   510     60        0 (1727/ 830-1770/ 885)  56.3 W47-W52 S14-S11
     15  667  796 (S06E25 L=123)   216    111        0 ( 621/ 763- 707/ 812) -31.0 E27-E22 S08-S04
     16  243  722 (S09E63 L= 85)   751     92        1 ( 227/ 681- 264/ 772)  56.3 E65-E59 S12-S06
     17  434  407 (S32E58 L= 90)   573    126        0 ( 411/ 356- 466/ 467)  66.0 E60-E54 S36-S27
     18  841  399 (S35E21 L=127)   429    112        1 ( 785/ 386- 896/ 414) -14.0 E24-E16 S35-S32
     19 1235  249 (S54W11 L=159)   479     63        1 (1200/ 233-1267/ 270) -20.6 W06-W14 S55-S51
  

    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