Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  475 1538 (N12E48 L=106)  1388    320        3 ( 384/1415- 546/1646)  83.3 E50-E45 N03-N20
      2  572 1548 (N14E41 L=112)   606    110        1 ( 521/1499- 618/1595)  60.3 E43-E39 N10-N18
      3 1083 1479 (N20E07 L=146)   387     96        1 (1036/1436-1126/1513) -15.9 E10-E03 N18-N22
      4  326 1421 (N03E56 L= 97)   783    181        0 ( 302/1352- 353/1493) -48.8 E59-E51 S01-N07
      5 1069 1204 (N04E01 L=152)   358     67        0 (1032/1181-1102/1225)  33.7 E03-W00 N02-N05
      6  449 1163 (S11E38 L=115)   247     91        0 ( 415/1138- 484/1182)   0.0 E40-E35 S11-S09
      7  209 1106 (S17E58 L= 95)   991    255        4 ( 151/1026- 270/1168)  45.0 E63-E52 S22-S12
      8  891 1068 (S08E09 L=145)   254     67        0 ( 861/1051- 929/1094)   0.0 E10-E06 S08-S06
      9  428 1061 (S17E38 L=116)   373    147        1 ( 387/1039- 479/1084)  29.7 E41-E34 S18-S14
     10  263  985 (S24E51 L=103)   846    182        1 ( 246/ 903- 279/1066) -84.3 E53-E48 S28-S18
     11  828  781 (S25E06 L=147)  1536    452        4 ( 640/ 663- 992/ 882)  49.6 E17-W01 S36-S15
     12 1699  579 (S14W58 L=211)  3909    628       12 (1528/ 430-1802/ 731)  75.4 W49-W68 S26-S03
     13 1459  554 (S22W40 L=194)   499     91        0 (1415/ 535-1511/ 570)  26.6 W36-W43 S23-S20
     14 1545  348 (S31W58 L=212)   631    172        2 (1506/ 327-1593/ 384)   6.3 W53-W62 S31-S28
  

    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