Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1737 1400 (N05W57 L=266)   637     95        3 (1691/1373-1778/1428) -23.2 W54-W61 N03-N07
      2 1406 1370 (N13W32 L=241)   335     58        0 (1373/1346-1435/1399)   0.0 W29-W34 N11-N14
      3 1619 1275 (N02W42 L=251)   493    147        0 (1570/1217-1666/1329)  16.7 W37-W47 N00-N04
      4  800 1268 (N24E07 L=203)   279    204        0 ( 726/1249- 854/1297) -26.6 E10-E02 N22-N27
      5 1142 1145 (N08W09 L=219)   955    214        2 (1049/1079-1218/1203)   0.0 W02-W14 N04-N11
      6  131 1142 (N32E69 L=140)   775     55        2 ( 105/1115- 158/1167) -15.3 E75-E63 N30-N33
      7 1742 1110 (S10W47 L=256)   390    106        1 (1714/1066-1775/1161) -66.8 W45-W48 S13-S06
      8  492 1078 (N20E31 L=178)   240    106        1 ( 442/1065- 548/1093)  -7.1 E34-E26 N19-N21
      9  378  996 (N18E41 L=168)   417    119        0 ( 352/ 941- 402/1048)  39.8 E44-E38 N15-N20
     10  230  896 (N16E57 L=152)   344     70        2 ( 193/ 875- 259/ 919) -26.6 E60-E53 N13-N17
     11  801  768 (S04E19 L=190)   945    355        1 ( 723/ 628- 875/ 900) -90.0 E21-E17 S13-N04
     12 1454  740 (S23W18 L=227)  1414    293        2 (1381/ 615-1519/ 869)  38.2 W10-W24 S28-S16
     13 1019  811 (S07E06 L=204)   534    188        0 ( 938/ 782-1081/ 846) -29.7 E09-E01 S08-S02
     14 1864  731 (S38W57 L=266)  1306    100        2 (1825/ 694-1899/ 771)  15.9 W50-W64 S40-S34
     15  691  704 (S05E27 L=182)   483    240        0 ( 652/ 623- 784/ 747)  12.5 E30-E21 S09-S02
     16  945  634 (S15E15 L=194)   689    228        3 ( 896/ 553-1019/ 696)  24.4 E20-E09 S18-S12
     17  298  551 (S05E64 L=145)  5928    377       10 ( 209/ 383- 382/ 685)  84.0 E81-E56 S16-N03
     18 1130  662 (S18E04 L=206)   224     66        1 (1105/ 642-1173/ 683) -33.7 E05-E01 S19-S16
     19 1044  640 (S17E09 L=200)   238     65        0 (1021/ 617-1062/ 667)  45.0 E10-E07 S18-S15
     20  804  552 (S16E26 L=184)   266     39        1 ( 780/ 532- 824/ 576)  14.0 E27-E23 S17-S14
     21  772  474 (S20E31 L=179)   487    147        2 ( 731/ 450- 835/ 518) -45.0 E32-E26 S22-S16
     22  687  460 (S19E37 L=173)   411     90        1 ( 649/ 429- 716/ 505)  26.6 E40-E33 S20-S16
     23 1261  435 (S36E02 L=207)   313     63        0 (1234/ 411-1293/ 458)  26.6 E04-W00 S38-S35
     24  545  328 (S24E56 L=153)  2132    191        7 ( 457/ 281- 635/ 383)   4.6 E69-E44 S26-S22
  

    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