Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1164 1851 (N52E24 L=234)   396     20        0 (1141/1832-1185/1866)  11.3 E27-E21 N49-N53
      2  429 1509 (N06E52 L=206)   377     68        0 ( 406/1476- 457/1535)  76.0 E53-E50 N04-N08
      3 1553 1501 (N38W20 L=278)   551     77        0 (1516/1478-1595/1525)   0.0 W17-W24 N36-N39
      4  257 1289 (S10E59 L=199)  1231    185        4 ( 173/1243- 319/1338)  21.8 E68-E53 S12-S05
      5  500 1236 (S08E36 L=221)   519    169        0 ( 475/1157- 549/1297)  83.7 E37-E34 S12-S03
      6 1190 1241 (N10W03 L=261)   249     52        0 (1162/1219-1215/1268) -11.3 W00-W05 N08-N11
      7  340 1017 (S24E44 L=214)   777    198        0 ( 301/ 931- 414/1078)  54.0 E47-E38 S29-S18
      8 1795  808 (N06W56 L=314)   721    126        1 (1762/ 746-1826/ 874) -76.0 W54-W57 N01-N09
      9 1644  763 (S02W45 L=303)   457    113        0 (1591/ 723-1686/ 804)  50.2 W41-W47 S05-N01
     10 1262  745 (S14W21 L=279)   280     54        1 (1235/ 721-1293/ 770)  56.3 W19-W22 S15-S12
     11  440  581 (S49E31 L=227)  1056    232        2 ( 338/ 552- 538/ 636)   0.0 E43-E20 S51-S45
     12 1367  471 (S26W40 L=298)   480    101        1 (1318/ 446-1413/ 491)  14.0 W36-W44 S27-S24
     13 1001  324 (S47W27 L=285)  1570    289        1 ( 868/ 256-1121/ 390)   4.1 W13-W41 S49-S45
  

    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