Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1125 1882 (N54E33 L=293)   743     78        0 (1095/1861-1162/1905)  80.5 E37-E28 N50-N56
      2  745 1825 (N35E52 L=273)   666     61        2 ( 716/1798- 771/1857)   0.0 E57-E47 N32-N37
      3  721 1555 (N16E34 L=291)  1753    438        5 ( 680/1377- 768/1772) -57.8 E45-E28 N04-N31
      4 1238 1524 (N29E02 L=323)   355     88        1 (1210/1482-1260/1563) -38.7 E05-W00 N26-N30
      5  160 1041 (S26E67 L=259)   508     64        2 ( 139/1003- 172/1068) -45.0 E70-E64 S28-S24
      6  604  716 (S35E18 L=308)  1827    358        2 ( 432/ 675- 757/ 769)  29.2 E32-E07 S43-S28
      7  929  673 (S28W05 L=330)   336    147        1 ( 899/ 613- 953/ 733) -66.8 W03-W07 S31-S24
      8 1284  686 (S17W25 L=351)   459     87        2 (1245/ 648-1333/ 714)  21.8 W22-W27 S19-S15
      9 1439  551 (S19W41 L=  6)  1043    222        2 (1383/ 499-1526/ 643)  76.0 W37-W43 S23-S11
     10 1102  594 (S27W18 L=344)   907    164        5 (1007/ 570-1185/ 630)  31.0 W12-W23 S30-S24
     11 1473  485 (S21W47 L= 12)   336     64        0 (1445/ 463-1499/ 508)  76.0 W45-W48 S23-S19
     12  720  386 (S55W02 L=327)   437     52        1 ( 688/ 361- 753/ 407)  45.0 W00-W04 S57-S51
     13  598  340 (S65E10 L=316)  1929    182        6 ( 518/ 305- 671/ 384)   9.5 E23-W01 S69-S58
     14 1458  361 (S28W56 L= 21)   452    106        0 (1407/ 348-1512/ 380)  39.8 W51-W58 S30-S25
  

    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