Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1012 1826 (N44E33 L=184)   813     98        0 ( 978/1790-1052/1856) -81.9 E36-E29 N40-N48
      2 1385 1686 (N47W02 L=220)  1438    164        5 (1340/1613-1434/1749) -86.2 W00-W05 N40-N55
      3 1821 1354 (N41W52 L=269)   908     97        1 (1778/1319-1859/1382)   4.4 W45-W58 N38-N42
      4 1716 1331 (N34W38 L=255)   330     42        0 (1702/1306-1730/1365) -76.0 W36-W39 N32-N36
      5 1514 1316 (N25W21 L=239)   262     44        0 (1480/1297-1542/1335)   0.0 W18-W23 N24-N26
      6  665  674 (S36E12 L=205)   272     54        1 ( 649/ 646- 684/ 711) -76.0 E13-E10 S37-S33
      7  951  664 (S28W07 L=224)   386    124        1 ( 902/ 623-1012/ 692)  54.5 W04-W09 S31-S24
      8 1241  569 (S24W28 L=245)   236     77        0 (1203/ 555-1284/ 578)  36.9 W25-W29 S25-S22
      9  703  553 (S42E06 L=212)   253     29        0 ( 685/ 529- 726/ 571)  90.0 E07-E04 S44-S40
     10 1456  477 (S22W46 L=264)   343     65        0 (1421/ 465-1496/ 489)  36.9 W43-W48 S23-S20
     11 1126  380 (S39W31 L=249)   779    127        0 (1077/ 343-1173/ 434)  90.0 W29-W34 S43-S34
     12 1279  306 (S38W48 L=265)   703    198        0 (1221/ 254-1352/ 369) -76.0 W45-W50 S43-S31
     13  860  278 (S57W22 L=239)   337     54        0 ( 848/ 245- 876/ 306) -45.0 W19-W25 S60-S54
  

    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