Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1334 1690 (N43W02 L=270)  1128    165        5 (1297/1636-1393/1740)  53.1 E02-W06 N37-N47
      2  994 1597 (N26E17 L=251)   367     97        2 ( 979/1549-1008/1643) -50.2 E19-E14 N22-N28
      3  725 1521 (N14E31 L=237)  1096    231        1 ( 698/1420- 751/1623) -50.2 E36-E25 N08-N20
      4 1430 1547 (N35W12 L=280)   455     99        1 (1383/1520-1484/1567)  20.6 W08-W16 N32-N37
      5  280 1444 (N02E63 L=205)  1600    285        3 ( 211/1366- 325/1492) -54.5 E73-E57 S02-N05
      6 1342 1409 (N23W09 L=277)   338     62        0 (1326/1368-1355/1446) -68.2 W07-W10 N20-N25
      7  843 1335 (N06E18 L=250)   750    142        0 ( 762/1290- 911/1398) -10.3 E24-E13 N04-N08
      8 1331 1137 (N07W14 L=282)  1104    293        2 (1298/ 983-1359/1286) -56.3 W09-W19 S01-N14
      9  167 1131 (S18E63 L=204)  4790    743        6 (  99/1016- 251/1237)  85.9 E72-E56 S24-S10
     10  501  917 (S25E30 L=238)   825    303        0 ( 366/ 872- 612/ 968)  27.9 E40-E22 S30-S19
     11 1414  892 (S05W26 L=293)   230     28        0 (1394/ 867-1432/ 913) -63.4 W23-W26 S05-S03
     12  196  807 (S37E56 L=212)  1177    388        0 ( 137/ 755- 288/ 846)  23.6 E63-E47 S40-S33
     13 1892  750 (N03W72 L=340)  1008    180        4 (1867/ 722-1924/ 780)  35.5 W68-W78 N01-N06
     14 1510  593 (S18W42 L=310)   261     72        1 (1472/ 579-1550/ 603)  31.0 W39-W44 S19-S16
     15 1581  481 (S21W53 L=321)  1062    115        0 (1524/ 429-1625/ 549)  90.0 W50-W55 S25-S16
  

    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