Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1560 1739 (N28W68 L=316)   705     55        1 (1528/1704-1581/1768)  11.3 W63-W74 N25-N29
      2  974 1602 (N39W16 L=263)   436    168        0 ( 888/1581-1046/1616) -18.4 W08-W20 N36-N41
      3 1716 1514 (N11W62 L=310)  2068    334        1 (1589/1410-1835/1580) -43.2 W52-W69 N02-N17
      4  699 1226 (N24E14 L=234)   295    118        2 ( 650/1197- 756/1247) -15.9 E17-E10 N22-N25
      5 1287 1168 (N06W18 L=266)   455     99        1 (1229/1144-1342/1183) -26.6 W15-W21 N03-N07
      6 1111 1042 (N04W05 L=253)   690    231        1 (1025/ 988-1192/1141)  14.0 W00-W12 N01-N07
      7  791 1089 (N14E11 L=236)   218     77        0 ( 759/1069- 832/1105)  11.3 E13-E08 N13-N15
      8 1808  936 (S22W49 L=296)  1172    163        2 (1765/ 852-1856/ 997)  71.6 W44-W54 S26-S17
      9  544  895 (N09E31 L=217)   741    188        1 ( 476/ 838- 593/ 974)  20.0 E36-E25 N05-N12
     10 1228  848 (S10W07 L=254)   276    121        1 (1193/ 807-1275/ 898) -74.1 W05-W08 S13-S06
     11 1669  749 (S29W34 L=281)   660    118        1 (1620/ 708-1717/ 789)   6.3 W29-W38 S30-S27
     12  402  491 (S10E57 L=191)  6941      0       28 ( 226/ 290- 560/ 751) -79.0 E69-E46 S25-N07
     13  545  587 (S08E41 L=207)   308     34        0 ( 525/ 562- 569/ 606)  14.0 E42-E38 S09-S06
     14  920  537 (S20E19 L=228)   476    152        0 ( 896/ 463- 946/ 604)  48.8 E22-E15 S24-S16
     15  650  531 (S13E36 L=212)   674    102        2 ( 607/ 485- 694/ 584)  81.9 E39-E33 S16-S09
     16 1478  529 (S37W15 L=263)   804    128        3 (1435/ 475-1526/ 567)  18.4 W10-W19 S39-S33
     17  726  497 (S17E32 L=215)   230     36        1 ( 710/ 468- 740/ 522)  63.4 E33-E31 S19-S15
     18  297  479 (S09E70 L=177)   741     94        1 ( 267/ 433- 324/ 518) -90.0 E72-E66 S12-S06
     19  623  452 (S17E41 L=206)  1063    197        3 ( 545/ 405- 677/ 497) -35.5 E45-E37 S20-S14
     20  537  403 (S19E51 L=197)   622    128        1 ( 489/ 363- 593/ 432) -50.2 E53-E48 S22-S16
     21  647  243 (S32E56 L=192)  1476    199        3 ( 591/ 193- 684/ 316)  29.4 E64-E48 S35-S26
  

    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