Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1604 1657 (N27W66 L=318)  1018    139        1 (1534/1637-1665/1677) -12.5 W58-W76 N25-N29
      2 1313 1646 (N36W40 L=292)  1493    334        2 (1148/1603-1437/1676) -13.5 W25-W50 N31-N39
      3  292 1374 (N43E54 L=199)  1609    263        3 ( 231/1263- 358/1499)  71.6 E59-E46 N36-N51
      4 1587 1347 (N11W44 L=296)   483    133        0 (1534/1301-1637/1380) -54.5 W40-W45 N07-N14
      5 1235 1254 (N15W18 L=270)   743    186        2 (1187/1154-1280/1316) -90.0 W15-W21 N09-N19
      6 1662 1245 (N04W45 L=298)   260     46        2 (1636/1222-1686/1267) -14.0 W43-W47 N02-N04
      7  515 1126 (N23E30 L=222)   305    121        0 ( 502/1081- 537/1192) -90.0 E31-E29 N20-N27
      8 1902 1103 (S12W66 L=319)   485     24        2 (1882/1082-1922/1127) -90.0 W63-W70 S13-S10
      9 1853 1038 (S14W58 L=310)   446     53        0 (1838/1005-1869/1066)  56.3 W56-W60 S15-S11
     10  679  966 (N11E22 L=231)   431    163        0 ( 637/ 887- 717/1036) -78.7 E23-E20 N05-N15
     11  822  817 (S00E16 L=236)   974    318        0 ( 745/ 682- 932/ 880)  21.8 E23-E08 S07-N02
     12 1689  757 (S25W38 L=290)   291     41        0 (1668/ 733-1709/ 780) -53.1 W36-W39 S27-S23
     13 1244  708 (S16W06 L=258)   523    161        1 (1218/ 656-1277/ 757)  63.4 W03-W08 S19-S13
     14  644  681 (S05E30 L=222)   276    103        0 ( 611/ 657- 687/ 706) -53.1 E32-E28 S07-S03
     15  570  637 (S06E37 L=216)   250     49        1 ( 549/ 608- 591/ 665) -76.0 E37-E35 S08-S04
     16 1590  494 (S41W28 L=281)  2119    335        4 (1474/ 395-1700/ 624)  27.6 W17-W39 S46-S34
     17  278  584 (S06E65 L=187)  1339    103        4 ( 231/ 551- 319/ 620) -35.5 E69-E60 S08-S03
     18  604  583 (S10E36 L=216)   497     68        1 ( 572/ 554- 634/ 616)  26.6 E39-E33 S12-S08
     19  378  550 (S09E56 L=197)   605     64        1 ( 360/ 505- 401/ 585)  45.0 E58-E53 S11-S06
     20  448  460 (S16E54 L=198)  1352    174        2 ( 409/ 374- 486/ 529)  57.5 E59-E50 S22-S11
     21  737  442 (S22E33 L=220)   915     94        2 ( 701/ 397- 772/ 494) -90.0 E35-E30 S25-S18
     22 1102  474 (S28E08 L=244)   320    123        0 (1046/ 458-1147/ 494) -33.7 E11-E05 S29-S25
     23  631  462 (S19E39 L=213)   275     59        1 ( 613/ 434- 659/ 484)  21.8 E41-E36 S20-S17
     24 1068  386 (S33E14 L=239)   275     82        0 (1032/ 362-1093/ 418)  18.4 E16-E10 S34-S31
  

    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