Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1129 1624 (N36W23 L=177)  1313    237        3 (1033/1567-1245/1657) -11.3 W15-W31 N32-N37
      2 1767 1381 (N06W59 L=213)   900    128        1 (1718/1334-1816/1419) -45.0 W55-W62 N01-N08
      3  231 1247 (N32E52 L=102)   522    108        0 ( 196/1220- 256/1271) -33.7 E55-E49 N30-N34
      4 1754 1175 (S05W50 L=204)   380    101        1 (1729/1147-1780/1206)  21.8 W47-W53 S06-S03
      5  458 1135 (N21E33 L=121)   420    108        1 ( 417/1114- 510/1157)  -8.1 E36-E29 N18-N22
      6 1309  970 (S06W15 L=169)  1145    318        1 (1227/ 803-1373/1124)  45.0 W06-W21 S14-N01
      7 1782 1087 (S11W51 L=204)   369     82        1 (1748/1062-1808/1107) -31.0 W47-W53 S12-S09
      8  483  952 (N10E34 L=119)   226     64        0 ( 468/ 928- 500/ 984) -90.0 E35-E33 N08-N11
      9 1134  664 (S20E02 L=152)   233     64        0 (1101/ 641-1175/ 695) -63.4 E03-W00 S22-S17
     10  920  449 (S29E21 L=133)   789    174        0 ( 892/ 365- 943/ 526)  61.4 E24-E18 S34-S23
     11  509  458 (S19E48 L=106)   811    217        5 ( 472/ 397- 564/ 513)  28.6 E52-E41 S23-S16
     12 1340  473 (S38W08 L=161)   476     94        0 (1290/ 433-1382/ 509)  20.6 W03-W11 S40-S36
     13  548  337 (S28E52 L=101)   770    193        1 ( 525/ 283- 567/ 408)  52.1 E55-E47 S32-S23
  

    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