Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1297 1821 (N49W43 L=169)   556     89        0 (1258/1793-1343/1841)   8.7 W36-W50 N46-N49
      2 1163 1624 (N35W19 L=145)  1649    433        2 ( 957/1542-1346/1665)   0.0 W03-W33 N32-N37
      3 1575 1616 (N29W52 L=177)   373     55        0 (1542/1600-1611/1631) -21.8 W48-W54 N27-N30
      4  248 1071 (N12E53 L= 73)   309     27        1 ( 228/1050- 269/1094) -63.4 E54-E50 N11-N13
      5 1926  962 (S15W70 L=195)  1161     97        1 (1905/ 904-1944/1013)  80.5 W65-W73 S18-S12
      6 1754  961 (S13W48 L=174)   321     58        0 (1732/ 936-1776/ 987)  26.6 W46-W50 S14-S11
      7 1732  822 (S21W46 L=172)  1016    257        0 (1642/ 738-1817/ 932)  29.4 W38-W54 S25-S15
      8  777  744 (S14E19 L=107)   456    113        1 ( 726/ 699- 810/ 793)  33.7 E22-E15 S15-S10
      9 1248  680 (S24W10 L=135)   829    261        1 (1187/ 570-1324/ 779)  47.7 W04-W15 S30-S18
     10  282  602 (S16E62 L= 64)  2375    346        8 ( 166/ 507- 402/ 708) -35.8 E75-E51 S21-S08
     11  418  616 (S17E47 L= 78)   629     70        2 ( 386/ 580- 451/ 650) -45.0 E49-E45 S18-S14
     12  802  486 (S30E23 L=102)   425     63        1 ( 784/ 444- 827/ 528)  59.0 E25-E21 S32-S27
     13  928  492 (S31E15 L=111)   426     90        0 ( 890/ 455- 963/ 524)  29.7 E18-E11 S33-S29
     14  440  334 (S35E66 L= 60)  2127    217        1 ( 374/ 256- 510/ 416)  72.9 E73-E61 S41-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