Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1085 1627 (N34W01 L=259)   289     42        0 (1061/1601-1113/1645)  56.3 W00-W02 N32-N35
      2 1669 1574 (N35W49 L=307)   381     46        0 (1649/1550-1698/1592)  23.2 W45-W52 N33-N36
      3 1572 1529 (N31W37 L=295)   295     66        0 (1560/1492-1582/1567)  68.2 W35-W38 N28-N33
      4  296 1481 (N22E58 L=201)   861     90        1 ( 275/1439- 329/1529) -74.1 E61-E54 N18-N25
      5  267 1364 (N14E56 L=202)   476     87        0 ( 221/1337- 305/1394)  23.2 E60-E52 N12-N15
      6  454 1334 (N12E39 L=220)   229    117        0 ( 414/1287- 500/1355)  38.7 E41-E35 N09-N13
      7   98  971 (S09E74 L=185)  1047     98        1 (  80/ 921- 116/1014)  39.8 E78-E69 S11-S06
      8  184  831 (S18E63 L=196)   399     87        1 ( 161/ 789- 203/ 868)  78.7 E66-E59 S20-S15
      9 1545  596 (S27W40 L=298)  1538    269        4 (1448/ 488-1658/ 674)  53.1 W33-W47 S34-S21
     10 1348  574 (S30W25 L=284)   353    115        0 (1297/ 548-1398/ 615)  45.0 W21-W28 S31-S26
     11  667  572 (S34E23 L=235)   820    321        0 ( 533/ 486- 770/ 607) -16.4 E34-E15 S39-S31
     12 1666  522 (S30W54 L=313)   521     96        2 (1621/ 489-1705/ 562)  45.0 W50-W56 S32-S27
     13  473  520 (S38E41 L=217)   265     77        2 ( 444/ 497- 513/ 544)  14.0 E45-E37 S39-S36
     14 1608  328 (S44W66 L=324)   950     92        0 (1571/ 298-1655/ 361)  -6.3 W56-W83 S44-S41
     15 1029  317 (S51W06 L=264)  1181    287        0 ( 881/ 294-1139/ 349)   0.0 E08-W16 S52-S48
  

    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