Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  603 1477 (N45E17 L=255)   394     95        1 ( 584/1436- 625/1526)  56.3 E18-E13 N42-N48
      2 1752 1451 (N08W63 L=335)   609     91        0 (1716/1417-1780/1480) -51.3 W60-W65 N05-N10
      3 1781 1238 (S04W55 L=327)   626    196        1 (1736/1191-1833/1266) -21.8 W49-W60 S06-S01
      4 1415 1209 (N06W27 L=299)   260    110        0 (1363/1181-1446/1249)   8.1 W23-W30 N05-N07
      5  965 1155 (N16W00 L=272)   311     98        0 ( 932/1114- 998/1198)  31.0 E02-W03 N14-N17
      6 1141 1173 (N12W10 L=282)   734    257        1 (1019/1140-1276/1194) -21.8 W03-W18 N08-N14
      7 1670  924 (S17W37 L=309)   971    197        2 (1624/ 877-1738/ 968) -36.9 W32-W41 S20-S13
      8  449  904 (N14E38 L=234)  2552    565        8 ( 243/ 838- 663/ 961) -22.8 E55-E24 N06-N20
      9 1535  746 (S23W23 L=295)   720    180        1 (1486/ 658-1571/ 829)  41.6 W18-W27 S27-S18
     10 1040  696 (S12E08 L=264)   379    117        1 (1017/ 635-1072/ 751)  39.8 E10-E04 S14-S09
     11  934  699 (S09E14 L=258)   247     74        0 ( 910/ 664- 970/ 725)  21.8 E15-E10 S10-S07
     12 1500  546 (S35W17 L=289)   492    106        2 (1449/ 528-1541/ 569) -29.7 W13-W20 S37-S33
     13  541  342 (S22E54 L=217)  3382    360        4 ( 436/ 220- 628/ 462)  87.3 E58-E51 S33-S12
  

    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