Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1144 1595 (N40W05 L=298)  5852   1120       10 ( 653/1462-1621/1743)  -5.9 E42-W46 N32-N48
      2 1706 1436 (N32W53 L=346)   773     85        1 (1665/1397-1751/1462) -12.5 W48-W58 N29-N33
      3  438 1346 (N18E43 L=250)   710    184        1 ( 367/1299- 487/1400)  36.9 E48-E39 N14-N21
      4  764 1350 (N20E19 L=274)   570    117        1 ( 734/1295- 789/1390) -59.0 E21-E17 N17-N23
      5  191 1214 (N07E65 L=228)  3263    387        4 ( 149/1042- 216/1364) -72.5 E80-E60 S03-N16
      6 1583 1287 (N21W37 L=330)   451    131        0 (1540/1234-1603/1346)  58.0 W33-W39 N17-N25
      7 1505 1302 (N22W31 L=324)   308     79        0 (1486/1261-1527/1342) -68.2 W29-W32 N19-N24
      8  298 1221 (N09E53 L=240)   843    136        0 ( 280/1161- 325/1294) -69.4 E55-E49 N05-N13
      9  749 1101 (N05E17 L=276)  1076    256        2 ( 725/ 980- 778/1219) -85.9 E19-E15 S02-N12
     10  621  970 (S04E25 L=268)   264     87        0 ( 574/ 953- 662/ 993)  18.4 E28-E22 S05-S02
     11  351  789 (S17E46 L=247)  1537    409        1 ( 318/ 597- 378/ 962)  76.0 E51-E42 S30-S06
     12 1883  920 (S00W67 L=  0)   522     70        0 (1858/ 897-1913/ 953) -11.3 W62-W72 S01-N01
     13  762  646 (S23E15 L=278)   474    155        0 ( 691/ 611- 832/ 683)  26.6 E20-E10 S26-S20
     14 1523  533 (S26W40 L=333)  4138    728        9 (1176/ 395-1781/ 671)  26.1 W16-W61 S38-S16
     15  489  319 (S52E53 L=240)   814     77        2 ( 443/ 303- 527/ 342)   8.1 E66-E45 S54-S49
  

    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