Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  672 1633 (N26E35 L=232)   677    111        1 ( 629/1582- 722/1684)  76.0 E36-E32 N21-N30
      2 1285 1624 (N36W07 L=274)   443     73        1 (1253/1587-1315/1646)  71.6 W04-W09 N32-N38
      3 1359 1582 (N34W13 L=279)   283      5        0 (1338/1562-1378/1605)  33.7 W11-W14 N32-N36
      4  235 1504 (N14E70 L=197)  1868    190        1 ( 192/1459- 271/1537)  32.0 E75-E65 N10-N15
      5 1457 1411 (N24W21 L=288)   327     50        1 (1429/1380-1482/1434)  76.0 W19-W22 N22-N26
      6 1527 1399 (N25W26 L=293)   298     40        0 (1500/1374-1552/1421) -14.0 W24-W28 N23-N26
      7 1303 1350 (N17W11 L=278)   625    127        0 (1275/1287-1333/1413)  82.9 W09-W12 N13-N21
      8  746 1332 (N07E22 L=245)   417    102        1 ( 696/1292- 774/1367) -26.6 E25-E19 N05-N09
      9 1556 1265 (N17W29 L=296)   288     84        0 (1524/1228-1575/1305)  78.7 W27-W30 N14-N19
     10  147 1213 (S05E70 L=197)  1382    110        2 ( 124/1162- 169/1262)  80.5 E74-E65 S08-S02
     11 1625 1198 (N15W35 L=302)   773    161        0 (1572/1145-1678/1257)  60.9 W31-W38 N10-N19
     12  656  831 (S23E20 L=247)  5206   1278        5 ( 212/ 581-1150/ 953)  20.3 E60-W09 S44-S09
     13 1898  893 (N04W67 L=333)  1204    209        4 (1862/ 846-1932/ 948)  66.8 W62-W71 N00-N07
     14 1480  608 (S22W38 L=304)   997    161        0 (1397/ 577-1558/ 644)  31.0 W32-W42 S25-S18
  

    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