Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1126 1609 (N42W10 L=219)   599    204        1 (1059/1539-1202/1658) -39.3 W04-W15 N36-N46
      2 1223 1526 (N36W16 L=225)   264     44        1 (1204/1497-1240/1553)  53.1 W14-W18 N33-N37
      3 1695 1484 (N30W58 L=266)  1208    139        1 (1629/1444-1765/1520) -21.0 W51-W65 N26-N32
      4  267 1287 (N20E58 L=150)  1046    140        3 ( 226/1241- 309/1337) -26.6 E65-E53 N17-N23
      5 1749 1267 (N16W54 L=263)   577    106        3 (1693/1244-1800/1285) -10.3 W48-W59 N13-N17
      6  235 1218 (N16E60 L=148)   417     93        0 ( 224/1171- 247/1260) -80.5 E62-E58 N12-N18
      7  156 1226 (N16E73 L=136)   708     85        1 ( 140/1182- 173/1257) -33.7 E78-E68 N13-N17
      8  947  913 (S03E05 L=204)   276    135        0 ( 918/ 878- 969/ 974) -78.7 E06-E03 S04-N01
      9  637  846 (S07E25 L=183)   912    274        1 ( 539/ 764- 723/ 943) -42.5 E31-E19 S11-N00
     10 1113  748 (S13W05 L=213)   464    218        0 (1006/ 697-1156/ 808)  41.2 E01-W07 S16-S09
     11  465  777 (S11E38 L=170)   295     61        0 ( 440/ 753- 491/ 801)  31.0 E40-E35 S12-S09
     12  374  699 (S16E47 L=161)  2859    310       11 ( 261/ 612- 459/ 789) -29.4 E57-E39 S21-S10
     13  503  693 (S16E36 L=172)   376     70        1 ( 473/ 660- 526/ 724) -45.0 E38-E34 S18-S14
     14 1364  617 (S23W22 L=231)  1181    402        3 (1254/ 552-1476/ 695)  25.0 W14-W29 S27-S18
     15  710  605 (S22E22 L=186)   982    224        2 ( 644/ 512- 785/ 683)  42.5 E28-E16 S28-S16
     16  539  602 (S22E35 L=173)   352     76        1 ( 516/ 561- 558/ 629)  78.7 E36-E33 S25-S20
     17 1110  539 (S27W05 L=213)   284     92        0 (1079/ 507-1148/ 579)  45.0 W02-W07 S29-S24
     18 1145  400 (S38W08 L=216)  1597    437        4 ( 970/ 330-1307/ 490)  23.7 E06-W19 S43-S31
     19  738  418 (S36E24 L=185)   475     76        0 ( 700/ 394- 767/ 449)  26.6 E27-E21 S37-S33
     20  620  396 (S38E35 L=173)   410     87        0 ( 591/ 374- 652/ 429) -63.4 E37-E31 S39-S35
     21  910  193 (S58E17 L=191)   565     48        1 ( 889/ 170- 937/ 221) -53.1 E21-E13 S61-S54
  

    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