Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1460 1708 (N51W10 L=274)   612    108        2 (1407/1687-1505/1726)  16.7 W04-W14 N48-N53
      2  990 1440 (N15E13 L=251)   574    214        0 ( 944/1359-1031/1534) -42.0 E18-E08 N11-N20
      3 1421 1486 (N31W11 L=275)   290     32        1 (1396/1470-1445/1504)   0.0 W09-W13 N29-N32
      4  303 1229 (S12E52 L=212)   412    109        1 ( 275/1187- 332/1266) -38.7 E54-E48 S13-S09
      5  242 1144 (S18E56 L=208)  1704    378        7 ( 168/1105- 313/1208)  26.6 E64-E48 S20-S14
      6  219 1033 (S25E55 L=208)   743    190        3 ( 184/ 984- 259/1085)  56.3 E58-E51 S27-S21
      7  792  924 (S18E11 L=253)  1035    339        2 ( 640/ 891- 965/ 951)  16.7 E20-W00 S22-S15
      8  244  925 (S31E51 L=212)   492    121        0 ( 207/ 911- 290/ 946)   0.0 E55-E46 S31-S29
      9  509  903 (S27E29 L=235)   471    168        2 ( 437/ 875- 588/ 936)  28.6 E34-E23 S28-S22
     10 1071  743 (S21W10 L=274)  1482    516        0 ( 812/ 640-1274/ 821)  17.2 E04-W25 S29-S16
     11 1471  529 (S21W43 L=307)   348     97        0 (1447/ 493-1494/ 568) -15.9 W39-W46 S22-S19
     12 1640  467 (S18W60 L=324)   424     89        1 (1617/ 439-1669/ 493)  36.9 W57-W62 S19-S16
     13 1176  427 (S36W30 L=294)   371     94        0 (1142/ 395-1210/ 467) -15.9 W26-W33 S37-S34
  

    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