Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  410 1670 (N16E68 L=119)  1586     96        1 ( 378/1639- 458/1703)  23.2 E79-E62 N13-N18
      2 1456 1610 (N43W10 L=197)   537    144        0 (1404/1549-1500/1666) -26.6 W04-W14 N40-N46
      3 1378 1560 (N36W05 L=193)   418    168        0 (1345/1487-1425/1622) -37.9 W01-W10 N32-N39
      4  651 1287 (S02E29 L=159)  1180    316        2 ( 585/1138- 720/1411) -36.3 E36-E21 S09-N04
      5 1570 1182 (N19W28 L=215)   871    193        0 (1511/1093-1627/1240) -24.4 W22-W33 N15-N20
      6  101 1101 (S23E81 L=106)  1227     79        0 (  89/1053- 114/1138) -59.0 E86-E77 S25-S20
      7 1638  867 (N04W41 L=228)   526    113        0 (1619/ 804-1662/ 919) -39.8 W38-W44 N01-N06
      8  773  718 (S30E06 L=181)   855    290        0 ( 658/ 666- 900/ 784)  49.4 E12-W00 S36-S22
      9 1709  750 (N00W51 L=238)   301     45        0 (1688/ 736-1734/ 769)   0.0 W48-W53 S01-N01
     10 1189  735 (S17W18 L=205)  1005    314        0 (1042/ 706-1334/ 764)  36.3 W10-W25 S22-S11
     11 1284  461 (S29W36 L=223)  1306    320        0 (1156/ 438-1437/ 493)  25.3 W27-W46 S33-S23
     12  486  403 (S63E28 L=159)   467     33        0 ( 465/ 383- 508/ 428) -45.0 E31-E23 S65-S60
     13  571  373 (S63E14 L=173)   437     56        0 ( 544/ 347- 596/ 399) -23.2 E18-E10 S64-S60
     14 1483  332 (S29W61 L=248)   529     57        0 (1468/ 293-1495/ 367) -16.7 W56-W66 S30-S27
  

    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