Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1402 1644 (N47W10 L=127)  1052    286        4 (1380/1578-1432/1736) -85.9 W07-W13 N41-N55
      2  503 1657 (N23E54 L= 62)  1093    187        4 ( 478/1595- 534/1713) -53.1 E59-E51 N18-N26
      3  923 1661 (N33E25 L= 92)   307     48        0 ( 901/1639- 941/1685) -76.0 E26-E23 N31-N35
      4 1634 1587 (N51W35 L=152)   535    131        3 (1595/1561-1661/1612)   8.1 W30-W38 N48-N53
      5  748 1544 (N21E31 L= 86)   383    147        1 ( 688/1497- 781/1577) -15.9 E34-E27 N18-N23
      6  997 1548 (N27E15 L=101)   261     40        1 ( 972/1532-1027/1568)   0.0 E17-E13 N26-N28
      7  667 1495 (N16E34 L= 83)   243    119        0 ( 644/1463- 706/1538) -26.6 E36-E30 N14-N18
      8  340 1486 (N09E60 L= 57)   535    133        4 ( 307/1444- 372/1523)  71.6 E62-E57 N05-N11
      9 1020 1396 (N18E09 L=108)   682    265        2 ( 985/1291-1077/1491) -81.9 E11-E06 N11-N25
     10  241 1200 (S10E58 L= 59)   807    142        2 ( 210/1151- 275/1249) -71.6 E61-E55 S12-S06
     11 1313 1206 (N14W13 L=129)   422    119        3 (1260/1177-1354/1233)   8.1 W08-W15 N12-N16
     12  654  750 (S28E17 L=100)   298    121        1 ( 589/ 732- 693/ 774)   7.1 E21-E13 S29-S25
     13 1826  706 (S01W67 L=184)   604    111        0 (1791/ 645-1855/ 759)  66.8 W65-W68 S05-N02
     14 1693  490 (S16W64 L=180)   575    107        1 (1666/ 456-1713/ 533) -68.2 W60-W66 S18-S13
     15 1351  263 (S40W51 L=168)   880    165        0 (1280/ 247-1412/ 281)  15.3 W44-W55 S42-S37
  

    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