Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  524 1675 (N25E54 L=177)   663    159        0 ( 486/1629- 551/1711) -35.5 E58-E50 N22-N27
      2  424 1634 (N20E61 L=170)   628    147        1 ( 367/1609- 474/1658)  26.6 E65-E56 N18-N22
      3 1160 1349 (N19W00 L=231)   344    128        1 (1149/1280-1182/1410) -83.7 E01-W02 N14-N23
      4 1449 1327 (N25W19 L=250)   382     58        0 (1417/1291-1479/1360) -31.0 W16-W22 N23-N26
      5 1043 1204 (N08E03 L=228)   281     60        0 (1014/1168-1065/1231) -45.0 E05-E01 N06-N09
      6 1591 1022 (N10W35 L=265)   429    110        1 (1560/ 976-1619/1079) -33.7 W31-W37 N08-N13
      7 1006  945 (S08W01 L=231)   196     74        0 ( 969/ 917-1043/ 967) -14.0 E01-W03 S08-S06
      8  415  846 (S27E36 L=194)   648    230        2 ( 371/ 805- 471/ 905)  54.5 E40-E32 S29-S22
      9  974  867 (S13W01 L=231)   295    114       -1 ( 945/ 842-1014/ 887)  63.4 E01-W02 S14-S10
     10 1547  595 (S15W45 L=276)   802    106        2 (1502/ 548-1600/ 633)  66.8 W41-W47 S18-S11
     11  912  580 (S32W04 L=235)   306     61        0 ( 886/ 552- 942/ 608)  63.4 W02-W05 S34-S29
     12 1417  409 (S29W45 L=275)   703    112        1 (1378/ 372-1475/ 440)  66.8 W41-W47 S32-S25
     13 1199  282 (S44W39 L=269)  1208    260        5 (1128/ 226-1251/ 365) -65.2 W33-W43 S50-S37
     14 1146  319 (S43W32 L=263)   305     66        0 (1133/ 287-1161/ 349) -45.0 W29-W34 S45-S40
  

    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