Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1050 1612 (N40W21 L=345)   256     65        0 (1027/1580-1070/1639)  31.0 W18-W23 N38-N41
      2 1574 1511 (N18W50 L= 14)   787    174        2 (1504/1465-1644/1533) -48.8 W45-W53 N13-N21
      3 1296 1319 (N16W24 L=348)   265    101        1 (1260/1302-1341/1359) -21.8 W21-W26 N14-N18
      4 1034 1243 (N19W06 L=330)   340    149        1 ( 960/1214-1111/1269) -36.9 W02-W10 N15-N21
      5 1343 1223 (N09W23 L=348)   304    158        1 (1270/1188-1408/1251)   0.0 W18-W28 N08-N10
      6  590 1179 (N26E23 L=301)   670    182        2 ( 526/1100- 659/1242) -57.5 E26-E19 N20-N31
      7  159 1037 (N26E62 L=262)   460    119        0 ( 131/ 999- 185/1060) -45.0 E65-E59 N23-N27
      8 1217  827 (S09W06 L=330)   945    438        0 (1056/ 770-1396/ 894) -35.2 E02-W15 S16-S02
      9  406  863 (N12E43 L=281)  1114    345        1 ( 278/ 820- 530/ 890) -17.5 E53-E34 N07-N14
     10 1312  646 (S22W07 L=331)   265     48        1 (1285/ 626-1342/ 666)   0.0 W04-W09 S23-S21
     11  943  583 (S16E16 L=308)   562    105        1 ( 908/ 542- 986/ 631) -81.9 E18-E14 S19-S12
     12  409  513 (S09E56 L=268)   687    131        4 ( 366/ 474- 451/ 552) -51.3 E58-E52 S12-S06
     13  823  388 (S26E31 L=293)   277     62        1 ( 787/ 372- 854/ 406) -14.0 E34-E29 S26-S24
     14  509  295 (S26E61 L=263)  1100    242        1 ( 492/ 253- 537/ 339)  32.5 E66-E55 S29-S22
  

    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