Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  473 1668 (N26E61 L=227)  4381    245       10 ( 432/1559- 542/1758) -32.5 E79-E52 N18-N32
      2  721 1618 (N28E36 L=252)   308     69        0 ( 694/1590- 752/1641) -18.4 E38-E32 N26-N29
      3 1358 1575 (N41W11 L=299)   388    156        0 (1290/1529-1405/1611) -15.3 W04-W15 N38-N42
      4 1684 1521 (N46W45 L=333)   619    109        0 (1632/1487-1724/1543)  -4.8 W38-W50 N44-N47
      5  298 1487 (N11E66 L=222)   583     60        1 ( 273/1462- 321/1520) -63.4 E69-E64 N09-N13
      6 1506 1401 (N32W25 L=313)   527    163        0 (1458/1338-1559/1456) -33.7 W20-W29 N28-N34
      7 1332 1410 (N28W11 L=299)   776    267        1 (1218/1342-1439/1446)  -3.6 W03-W19 N26-N29
      8 1399 1171 (N15W20 L=308)   233     72        0 (1374/1135-1424/1203) -36.9 W17-W21 N12-N16
      9  598 1006 (S11E26 L=262)   322    101        0 ( 541/ 989- 639/1026)  33.7 E29-E23 S13-S09
     10 1869  958 (N13W64 L=352)   786    114        0 (1830/ 902-1894/ 997) -35.5 W58-W68 N09-N14
     11  728  906 (S15E15 L=273)   260    129        0 ( 689/ 868- 778/ 934)   0.0 E17-E11 S16-S13
     12 1554  660 (S12W43 L=331)   440    113        0 (1499/ 642-1608/ 680)  18.4 W38-W47 S13-S10
     13 1705  648 (S09W56 L=344)   397     48        1 (1688/ 620-1725/ 670)  90.0 W54-W57 S10-S07
     14 1534  450 (S25W52 L=340)  1275    180        2 (1496/ 382-1564/ 539) -42.3 W48-W60 S28-S18
     15  581  503 (S45E22 L=266)   374     49        0 ( 558/ 476- 605/ 530)  51.3 E24-E19 S47-S42
     16 1047  470 (S35W15 L=303)   516    151        0 ( 986/ 452-1123/ 500)  36.9 W11-W19 S37-S31
  

    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