Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1321 1587 (N33W21 L=  2)  1612    357        2 (1182/1466-1452/1732) -49.9 W12-W28 N24-N44
      2  520 1526 (N28E36 L=305)   267     27        0 ( 498/1510- 544/1541)  14.0 E38-E34 N26-N29
      3  563 1376 (N18E30 L=311)   503    110        2 ( 537/1318- 580/1426) -66.8 E32-E28 N14-N21
      4  429 1245 (N10E39 L=302)   637    176        1 ( 358/1218- 499/1274) -10.3 E44-E33 N08-N11
      5  745 1200 (N07E17 L=324)   238     85        0 ( 718/1150- 773/1243)  63.4 E18-E15 N03-N09
      6 1088 1079 (S00W04 L=345)   246     66        0 (1058/1060-1121/1095) -14.0 W01-W05 S01-N00
      7 1042  894 (S11W01 L=342)   569    190        1 (1000/ 797-1079/1000)  77.0 E01-W03 S17-S04
      8  431  709 (S22E41 L=300)  1308    406        2 ( 349/ 603- 513/ 875)  41.6 E50-E32 S28-S12
      9 1875  831 (S12W64 L= 45)   499    117        2 (1851/ 801-1904/ 867)  53.1 W61-W67 S14-S10
     10 1823  794 (S15W58 L= 39)   515    168        0 (1791/ 767-1865/ 834) -24.0 W54-W63 S16-S12
     11 1789  756 (S18W55 L= 36)   384     70        0 (1770/ 727-1806/ 791) -45.0 W53-W57 S19-S15
     12  736  655 (S26E19 L=322)   503    117        0 ( 701/ 605- 765/ 708)  54.5 E21-E16 S29-S22
     13 1314  620 (S28W20 L=  1)   221     73        0 (1297/ 582-1334/ 658)  78.7 W19-W21 S30-S25
     14 1006  542 (S34E01 L=340)   505    152        2 ( 946/ 509-1073/ 598)  36.9 E05-W03 S35-S29
  

    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