Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  411 1420 (N43E39 L=267)   471    106        0 ( 378/1400- 452/1444) -35.5 E42-E35 N40-N45
      2  304 1365 (N41E49 L=257)   639     97        0 ( 287/1328- 324/1421) -63.4 E51-E47 N38-N44
      3 1670 1355 (N11W51 L=357)   391     97        0 (1624/1320-1710/1395) -56.3 W48-W53 N07-N14
      4 1366 1370 (N19W29 L=335)   214     63        1 (1336/1341-1391/1393) -76.0 W28-W30 N17-N21
      5  785 1325 (N30E09 L=297)   469    119        3 ( 749/1289- 839/1353)   0.0 E11-E05 N27-N31
      6  317 1149 (N26E47 L=259)  1209    287        3 ( 275/1039- 376/1245) -63.4 E50-E42 N18-N32
      7 1434 1055 (N00W25 L=331)   226     75        1 (1395/1023-1461/1084)   9.5 W21-W27 S01-N01
      8  526  987 (N14E32 L=274)   257     46        0 ( 493/ 973- 552/1004)   0.0 E34-E29 N12-N14
      9 1428  903 (S09W22 L=328)   718    234        0 (1349/ 848-1528/ 970) -32.5 W17-W28 S12-S03
     10  736  918 (N06E19 L=287)   236     78        0 ( 704/ 894- 769/ 950)  21.8 E21-E16 N05-N07
     11  980  600 (S17E12 L=295)  1255    364        4 ( 899/ 492-1033/ 738)  42.9 E19-E05 S23-S09
     12  230  612 (S06E71 L=235)   702    170        0 ( 195/ 596- 261/ 628)   0.0 E79-E66 S07-S04
     13  417  552 (S11E52 L=254)   592    153        1 ( 377/ 519- 445/ 608)  32.0 E56-E47 S13-S07
     14  480  388 (S23E55 L=251)   657     92        0 ( 440/ 354- 508/ 411) -63.4 E57-E51 S25-S21
     15  966  308 (S38E23 L=284)   640    162        1 ( 923/ 249-1009/ 349)  32.5 E29-E18 S42-S35
  

    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