Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1229 1634 (N35E04 L=307)   785    161        2 (1152/1576-1300/1665)   5.2 E09-W02 N31-N36
      2  248 1356 (S03E62 L=249)   398    103        1 ( 216/1320- 284/1397)  45.0 E64-E59 S05-N00
      3  432 1349 (S01E44 L=266)   299     90        3 ( 393/1336- 489/1365)   8.1 E47-E40 S02-N00
      4 1368 1327 (N18W13 L=323)   463    136        0 (1300/1297-1423/1353)   0.0 W07-W16 N17-N19
      5 1778 1107 (N18W46 L=356)  1618    375        4 (1732/ 977-1823/1264) -53.7 W41-W52 N10-N26
      6  614 1058 (S14E25 L=285)   387    186        1 ( 594/ 979- 653/1131) -83.7 E26-E22 S18-S09
      7 1563  990 (N05W32 L=342)   377    154        0 (1502/ 965-1633/1024)  41.2 W28-W36 N01-N08
      8  644  834 (S27E19 L=291)   315     76        0 ( 605/ 813- 681/ 855)   0.0 E21-E15 S27-S25
      9 1872  703 (S00W70 L= 21)   698     58        1 (1842/ 691-1909/ 724)   4.1 W65-W79 S01-N01
     10  377  625 (S46E41 L=269)  1839    357        3 ( 241/ 563- 549/ 669)  -1.5 E60-E22 S47-S42
     11 1770  507 (S13W72 L= 22)   850    111        3 (1741/ 456-1800/ 552) -71.6 W68-W77 S16-S10
     12 1565  433 (S24W56 L=  6)  1397    311        2 (1425/ 397-1690/ 493)  12.5 W41-W68 S27-S19
     13 1478  274 (S36W65 L= 16)  2201    291        3 (1370/ 242-1622/ 319)  25.6 W55-W81 S39-S28
  

    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