Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1514 1585 (N24W52 L=205)  2754    495        7 (1343/1479-1721/1635) -36.9 W39-W65 N11-N30
      2 1603 1489 (N16W53 L=206)   481     99        0 (1552/1460-1638/1510) -51.3 W49-W54 N13-N18
      3  492 1269 (N34E30 L=124)   388    124        0 ( 433/1243- 545/1290) -26.6 E35-E25 N31-N36
      4 1107 1275 (N19W12 L=165)   193     53        1 (1071/1259-1140/1285) -14.0 W09-W13 N17-N20
      5  445 1141 (N27E35 L=118)  1028    292        0 ( 407/1053- 532/1275) -66.4 E38-E29 N20-N36
      6  624 1127 (N22E22 L=132)   270     63        1 ( 595/1106- 655/1154) -53.1 E23-E20 N20-N24
      7 1789 1065 (S12W51 L=205)   416     58        0 (1771/1034-1806/1100) -68.2 W49-W52 S14-S09
      8  380  806 (N09E47 L=107)  1162    247        5 ( 302/ 705- 431/ 911)  80.5 E53-E44 N02-N14
      9  236  835 (N13E60 L= 93)   737    104        1 ( 196/ 815- 290/ 868) -24.0 E65-E54 N10-N14
     10  668  708 (S03E29 L=125)   368     69        2 ( 637/ 673- 695/ 737) -76.0 E30-E27 S04-N00
     11  535  538 (S10E44 L=109)   366     53        2 ( 505/ 516- 565/ 564)   0.0 E47-E41 S11-S08
     12  395  463 (S13E61 L= 92)   721     73        0 ( 375/ 420- 409/ 502)  35.5 E64-E57 S15-S10
     13 1162  412 (S34E09 L=144)   386     75        0 (1128/ 377-1182/ 435) -78.7 E10-E07 S36-S31
  

    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