Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1007 1616 (N34E16 L=180)  2956    597        6 ( 754/1499-1239/1741)  -4.3 E38-W02 N30-N38
      2  404 1596 (N20E59 L=136)  1046    306        0 ( 386/1499- 422/1673) -45.0 E66-E54 N14-N25
      3 1310 1490 (N33W09 L=204)   302     70        0 (1278/1474-1347/1506)  21.8 W06-W11 N31-N34
      4  637 1450 (N16E34 L=162)   429     77        1 ( 611/1411- 673/1498)  90.0 E35-E32 N12-N19
      5  782 1356 (N13E22 L=174)   234     56        1 ( 760/1334- 799/1388)  90.0 E22-E20 N11-N14
      6  422 1283 (N02E44 L=151)   795    213        1 ( 349/1238- 520/1333)  36.0 E49-E38 S02-N06
      7 1611 1068 (N13W36 L=232)   297     77        1 (1582/1032-1630/1105) -45.0 W33-W37 N10-N14
      8  768  990 (S09E14 L=181)   506    155        0 ( 740/ 923- 819/1058) -40.6 E17-E10 S11-S04
      9 1868 1001 (N15W61 L=257)   591    107        0 (1831/ 974-1896/1032)  -6.3 W56-W65 N13-N16
     10  962  917 (S09E02 L=194)   358    123        2 ( 903/ 881-1034/ 956)  45.0 E04-W02 S11-S05
     11 1682  675 (S08W52 L=248)   617    136        0 (1668/ 626-1698/ 739) -50.2 W49-W55 S10-S04
     12 1345  616 (S19W29 L=225)   229     47        1 (1323/ 598-1376/ 634)  33.7 W27-W31 S20-S17
     13 1025  563 (S29W11 L=206)   342     63        1 ( 994/ 542-1065/ 581)   0.0 W08-W13 S30-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