Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1440 1514 (N34W33 L= 89)   447     70        0 (1415/1476-1462/1551) -78.7 W31-W34 N31-N37
      2 1657 1495 (N32W51 L=108)   804     96        1 (1623/1458-1692/1537) -51.3 W48-W53 N29-N34
      3  311 1485 (N32E58 L=358)  1010    202        1 ( 280/1449- 355/1532) -26.6 E62-E52 N30-N35
      4  569 1393 (N27E32 L= 24)   237     67        0 ( 537/1381- 602/1407) -11.3 E34-E29 N26-N28
      5  167 1225 (N15E68 L=348)   561     72        0 ( 151/1201- 184/1249) -26.6 E71-E65 N13-N16
      6 1899 1200 (N11W72 L=128)   845    110        1 (1875/1158-1924/1227) -29.7 W68-W76 N08-N12
      7  745 1178 (N13E18 L= 39)   240     81        1 ( 711/1145- 777/1207) -45.0 E20-E15 N11-N15
      8 1141  969 (N00W07 L= 64)   306     69        0 (1095/ 946-1182/ 994)  11.3 W04-W09 S01-N01
      9 1882  955 (S04W67 L=123)   582    140        0 (1858/ 930-1912/ 976)   6.3 W63-W72 S05-S02
     10 1846  830 (S11W62 L=119)   777    153        0 (1831/ 794-1877/ 885) -56.3 W60-W67 S13-S07
     11  549  750 (S13E32 L= 25)   427     85        0 ( 494/ 721- 588/ 781) -26.6 E35-E29 S15-S11
     12  410  661 (S19E44 L= 12)   515     84        0 ( 388/ 616- 430/ 704)  63.4 E46-E41 S22-S16
     13  319  566 (S27E56 L=  1)   772    155        0 ( 288/ 534- 355/ 590)  24.0 E60-E51 S29-S24
     14 1042  573 (S25W01 L= 57)   278     70        0 (1005/ 558-1082/ 587)   0.0 E01-W03 S26-S24
  

    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